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EDITORIAL 


Chers Membres, 


Je tiens à vous annoncer deux nouvelles importantes : une bonne et une 
mauvaise. 


Commençons par la mauvaise : Jacques Baudier s’est fait voler son HP-71, ce qui 
a comme conséquence directe l'arrêt (nous espérons momentané) de sa série 
d'articles sur l’assembleur du HP-71. Que les amateurs d’assembleur se 
rassurent : ils ont de quoi se creuser les méninges ce mois-ci ! Souhaitons tous 
que Jacques puisse retrouver une machine rapidement. 


La bonne nouvelle : nous avons pu récupérer la Rom du HP-28C (version 1BB) 
grâce aux efforts de Paul Courbis, Sébastien Lalande et Guillaume Le Stum. Le 
désassemblage est en cours, grâce au HP-71 et à JPC Rom. 


Avant de vous laisser découvrir la suite de ce JPC, je tiens à vous signaler que ce 
numéro ne contient pas d’article sur la HP-41. C’est dommage, n'est-ce pas ? 


Alors, envoyez-nous vos oeuvres, nous les publierons avec plaisir. 


En attendant, faites de beaux rêves. Et n'oubliez pas de lire votre journal... 


Pierre David (37) 
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DU NOUVEAU 
A PROPOS DU HP-28S 


Depuis l’annonce du HP-28$ dans le précédent JPC, 
nous avons reçu les précisions suivantes à propos des 
nouvelles caractéristiques. Ces informations nous sont 
directement parvenues de William C. Wickes, le 
créateur des HP-28, via le réseau Unix. 


- 32 Ko de Ram, 

- système de sous-répertoires pour le menu USER, 

- menus modifiables pour combiner des variables 
utilisateur et des commandes système, 

- sauvegarde, rappel et fusion d'images graphiques, 

- combinaisons et arrangements, 

- pas d'arrêt du tracé de fonctions en cas d’erreur 
mathématique, 

- une nouvelle fonction pos cherche un objet dans une 
liste, 

-A(1) renvoie le "€ élément d’une liste ou d’un 
tableau, permettant ainsi l'utilisation des variables 
indexées dans les algebraics (A(1,49) fonctionne aussi), 
- les fonctions définies par lutilisateur peuvent l'être 
dans des programmes, 

- les commandes prenant comme arguments des réels 
dans des listes permettent l’utilisation de programmes 
ou d'objets symboliques à la place des nombres, 

-un mode double interligne est ajouté pour 
l’imprimante, 

-les programmes sont décompilés et listés avec une 
indentation automatique pour les structures (NDLR : 
ça existe aussi sur le HP-71, voir JPC 53), 

- les opérateurs mono-caractères ajoutent 
automatiquement les espaces nécessaires durant 
l'introduction des programmes, 

- l'appui simultané sur CONJIL] imprime lécran sur 
l'imprimante à n'importe quel moment, 

- RND (round) fonctionne sur les objets complexes et 
matriciels, 

- l'inversion des matrices singulières est liée à 
l'exception « division par zéro », 

- Enfin, les erreurs identifient automatiquement la 
commande coupable, ce qui est d’un grand secours 
durant le débogage. 


D'autre part, le HP-28S intègre une électronique 
complètement nouvelle : le microprocesseur, un des 
display drivers et 64Ko de Rom sont maintenant 
réunis dans un seul boîtier. Les 32 Ko de Ram ne sont 
pas des Ram HP. Conséquences directes : il 
semblerait que la vitesse de lensemble soit 
supérieure de 50% à celle d’une HP-28C, mais 
d'autre part, on ne peut pas ajouter de mémoire 
supplémentaire. 
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En direct des Etats-Unis, 


William C. Wickes 





COURRIER DU COEUR 


Jean-Claude Fourès 

100 rue de la Chapelle 

75018 Paris 

Tél : (1) 42 01 12 10 ou (1) 42 40 32 58 


Vend : 

HP-71B + lecteur de cartes + interface HPIL + 
imprimante ThinkJet + lecteur de disquettes 
HP9114A + livres sur Basic HP71 et Forth. Le prix 
est à débattre. 


André Vialaron 
11, ruc Darquié 
31000 Toulouse 
Tél : 61 52 20 03 


Vend : 

Imprimante thermique HP82143A pour HP-41 
(révisée par HP) 1000F, soit 50% du prix 
EduCALC. 


Christophe Berthet 

14 rue Abbé Cottard Josserand 
01000 Bourg en Bresse 

Tél : 74 21 18 17 


Vend : 
HP-41CX n’ayant jamais servie (cadeau) encore sous 
garantie à la FNAC. Achetée 2500 F, prix à débattre. 





HP28 


P. Courbis Choc en retour 4 
G. Le Stum Questions, réponses 4 
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CHOC EN RETOUR 


Racourcissaisissant 


Dans JPC 51, je vous proposais le programme -LEX. 
Celui-ci peut être remplacé par #3EEAO SYSEVAL qui fait 
exactement la même chose. 

Erratum 

Dans l’article Le tour du HP-28.. se sont glissées 


quelques petites erreurs : 


page 15, deuxième colonne, en haut : 
Il fallait lire 1C385 et non pas 1C285 


page 23, le listing de ASS commence par : 
« + LM « HEX "1 1 LM SIZE FOR X 


et non pas par : 
«+ LM « HEX M A'LM SIZE FOR X 


Paul Courbis (392) 


QUESTIONS, REPONSES 


Racines cubiques 


En réponse à une partie du S.OS. de Laurent 
Vergnes : '-8*INV(3)' donne -2 car l’opérateur * 
(puissance) est exécuté avant la négation (-). 
1(-8)"INV(3)' donne un résultat complexe. 


Une solution au problème des racines cubiques de 
fx) est de définir une nouvelle fonction ainsi : 


« + a 'SIGN(a)*ABS(a)"INV(3)! » 


Si on l'appelle CRT, 'CRT(-8)' donnera bien -2. 
Pgcd et fractions 


Tout d’abord voici un programme de calcul de pgcd. I] 
utilise l’algorithme classique : 
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- pgcd (a, b) = pgcd (b, a mod b) 
- pgcd (a, 0) = a 


Voici donc PGCD : 
« DO 
SWAP OVER MOD a,b -> b,MOD(a,b) 
DUP duplique pour tester 
UNTIL DO == 
END stoppe si MOD(a,b)=0 
DROP 


Ce programme occupe 43 octets 


Une application immédiate est la simplification de 
fractions à l’aide du programme FRAC que voici : 


« DUP C+R PGCD / » 


Ce programme utilise 34 octets 


Les fractions étant introduites sous la forme (n,d) où 
n est le numérateur et d le dénominateur. 


Le programme suivant est destiné à tous ceux qui 
comme moi sont nuls en calcul mental et trouvent 
plus agréable d’être l’esclave de leur machine que de 
s’entrainer à additionner et simplifier des fractions 
aussi vite qu’elle. 


Toujours avec la même notation on a : 
(a,b)+(c,d) = (ad+bc,bd) 


Le programme utilise le fait que : 


(a+bi)(c+di) = ac-bd + (ad+bc)i 


DUP2 IM SWAP IM * calcul de bd 


ROT ROT * IM calcul de ad+bc 
SWAP R+C remise sous La forme (n,d) 
FRAC simplification 

» 

ADFR occupe 54 octets 


Vous aurez certainement remarqué qu'aucune erreur 
n'apparaît si vous mettez un dénominateur nul. N’en 
déduisez surtout pas que mon programme n’est pas 
parfait : c’est le fruit d’une décision délibérée visant à 
laisser une part de réflexion à l'utilisateur (si, si, je 
VOUS assure...) 


Décomposition en facteurs premiers 


Ce programme décompose le nombre impair » en 
facteurs premiers en le divisant par tous les impairs 
successifs d, si le reste est nul on remplace 7 par n/d, 
sinon on remplace d par d+2, on s'arrête quand 
dxd>n. Les termes de la décomposition sont mis dans 
une liste. 


« 
£ } SWAP 3 
DO 
WHILE 
DUP2 MOD O0 == 
REPEAT 
ROT OVER 1 +LIST + 
SWAP ROT 
OVER / SWAP 
END 
2 + 
UNTIL 
DUP2 SQ < 
END 
DROP 
1 +LIST + 


» 
Ce programme occupe 106 octets 


Par exemple, 100000001 PREM donne (17 5882353) au 
bout de 69 secondes. Notez bien que je n’ai pas osé 
parler de test de vitesse ! 


On peut aisément modifier le programme pour qu’il 
traite aussi les nombres pairs mais ça prend à mon 
avis trop de place : le simili forth de notre calculette 
préférée est assez compact, mais 2 Ko, c'est quand 
même vraiment juste. 


Par exemple, on peut remplacer 3 DO par 2 Do et 2 + 
par : 

IF DUP 2 == THEN 1 + ELSE 2 + END 

Cette solution n’est pas la plus coûteuse en octets, 
mais c’est sans aucun doute celle qui ralentit le plus le 
programme. 


Combinaisons et permutations 


Il est écrit dans la publicité de la HP-28C qu’elle 
contient les combinaisons et permutations. Or, je n’en 
ai trouvé aucune trace. J’ai donc été obligé de 
sacrifier de précieux octets de mémoire pour PANP et 
PCNP qui calculent respectivement le nombre de 
permutations et de combinaisons de p éléments parmi 
ñ. Il faut d’abord introduire dans la pile » puis p. PCNP 
utilisant PANP, vous ne pouvez donc pas l'utiliser 
séparément. 


PANP(n,p) = n!/(n-p)! 


« 
OVER SWAP - 
WHILE 
DUP2 > 
REPEAT 
1 + ROT OVER * 
3 ROLLD 
END 
DROP2 


1 3 ROLLD 


Ce programme occupe 71 octets 


PCNP(n,p) = n!/(p!{n-p)!) 


DUP2 - 
MIN DUP FACT 
3 ROLLD PANP 
SWAP / 


Ce programme occupe 48 octets 


PS : si vous savez comment accéder à ces fonctions, 
n'hésitez pas à dire comment vous procédez... 


Récursivité 


Eh oui, ça marche aussi sur notre machine favorite. 
Mais mis à part la satisfaction de savoir que c’est 
possible, je n’ai pas trouvé d’application réellement 
intéressante à vous proposer. Je pense que la HP-28C 
est trop limitée en vitesse comme en mémoire pour 
que ce soit intéressant (tout contre-exemple à mes 
assertions sera cependant le bienvenu). 


Cette fonction étant intégrée à la machine, je vous 
ferai grâce du classique exemple de factorielle. 
Voyons plutôt comment ça se passe avec le pgcd : on 
a déjà vu Palgorithme utilisé. Le programme peut 
donc s’écrire en version récursive : 


«+ab 
"IFTE(b==0,a,PGCD(b,MOD(a,b)))' 


» 
Ce programme occupe 95 octets 


L'utilisation des variables locales et de la forme 
algébrique consomme beaucoup de m moire, mais 
elle permet d'utiliser PGCD comme une ionction. On 
pourra donc faire "PGCD(21,7)' EVAL. On ne pouvait 
pas mettre le programme sous cette forme sans 
utiliser la récursivité et on est donc très content. 
L'étape suivante est PGCD' PURGE, à moins qu’on soit 
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persuadé qu’il est indispensable de pouvoir utiliser 
des pgcd dans des objets du type a/gebraic. 


On peut de même refaire PANP et PCNP sachant 
que : 

- PANP(n,p) = PANP(n,p-1)(n-p +1) 

- PANP(7,0)=1 

et que : 

- PCNP(1,p) = PCNP(1-1,p-1)+ PCNP(1-1,p) sip>n 

- PCNP(1,p) =0 

- PENP(72,0)=1 


Si vous faites le programme PcnPp de cette manière 


vous aurez un excellent exemple des limites de 
l'utilisation de la récursivité sur la HP28C. 


Nota : toutes les tailles de programme sont données 
en supposant que vous leur donnez un nom de 4 
lettres. 


Guillaume Le Stum (432) 
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HP75 
J.Y. Hervé 


J.Y. Hervé 


Graphiques 


Programme "GRAPH22" 


30 
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GRAPHLEX... POUR HP-75 


Voici un Lex qui, accompagné de son programme 
Basic associé, permettra aux possesseurs de HP-75 et 
de l’imprimante HP-82905B de faire presqu’aussi bien 
que s'ils avaient un HP-71, une HP-2225 et l’un des 
logiciels graphiques maintenant disponibles pour 
cette machine (Cf Graphic de Pierre David, Plot 
Package de Paul Grimmer, Graph-71 de Chris Bunsen 
ou les fonctions GLINE et GPSET de la JPC Rom). 


Le Lex fournit cinq fonctions programmables 
d'édition de chaînes propres sur imprimante 
matricielle de type HP-82905B (). 


RFILLS$ (H$,C,L) 


Fonction alphanumérique, qui complète à droite une 
chaîne H$ avec des caractères de code C, pour 
obtenir une chaîne de longueur L. Si L est inférieure 
à la longueur de la chaîne H$, cette dernière sera 
tronquée à la longueur demandée (et retournée vide 
si L< 0). 


ARPTS (H$,N) 


Fonction alphanumérique permettant de répéter N 
fois la chaîne H$. Si N < 0, la chaîne retournée sera 
vide. 


SBIT$ (H$,B) 


Fonction mettant à 1 le bit B (0 à 7) de tous les 
caractères de la chaîne H$. Génère l'erreur 11 
(Argument out of range) si B n’est pas compris entre Ü 
et 7 inclus. 


CBIT$ (H$,B) 

Fonction inverse de la précédente, met à zéro le bit 
numéro B de tous les caractères de la chaîne H$. 
Comme précédemment, l'erreur 11 (Argument out of 
range) est générée si B n’est pas compris dans 
l'intervalle allant de 0 à 7 inclus. 


VBITS (H$) 


Cette dernière fonction inverse les bits de la chaîne 
H$, c’est-à-dire met à 1 les bits 0 et réciproquement. 


JPC 52 Page 8 


s 


Le programme Basic proposé à titre d’exemple 
permet de tracer le graphe de toute fonction donnée 
sous la forme y=f{(x). Il demande de fournir une 
fenêtre de tracé, et effectue celui-ci avec un réticule 
(les anglophones diraient un grid) approprié. Notez 
au passage la méthode utilisée pour spécifier la 
fonction (le programme s’auto-modifie lignes 3 et 4), 
avec la conséquence que ce programme ne peut être 
implanté en PMS ou Eprom. Le Lex peut l’être, lui ! 


Jean-Yves Hervé (450) 


€) NDER : 
préparation des chaînes graphiques, mais non leur impression 
(laquelle demeure classique, par PRINT) : la rédaction de 


Les fonctions proposées concernent toutes la 


programmes équivalents pour les imprimantes en mode raster 
graphics est donc tout à fait possible. A suivre. 


GRAPHLEX 319 bytes 


0001 C18623018D4C506E23A347524150484C45586900 92 
0002 0A00220014003D00400044007400AE00EF000901 1F 
0003 40004000400040004000FFFF5246494C4CA44152 F3 
0004 5054A456424954A453424954A4434249S4A&FFFF C3 
0005 61179E00382ECE8B3EF5019306ESCE8B3E54CE 12 5A 
0006 1F7EE36E06E3CE25FCF8146E8BF4107E8BF40742 1F 
0007 14E016E4FO0F16616E4FO0EC9E282ECE8B3EF50193 2A 
0008 A306E554CE121F5EE36E931E668BF4046EC3FOF8 4D 
0009 CE25FCF8186E06E36E8BF4115C1EA15214A15C8B 66 
0010 F4F25012E016E4FO0F59E182E54CE121F6E0AE3CE 71 
0011 25FCF80C6E8BF4084314E08E16E4FO0F49ECEBB3E FC 
0012 6690FD04CB808FA04CEAC4COB5093886690F7058A 86 
0013 5084FOF754CE121FÉ6E0AE3CE25FC9E282E54B1A3 FD 
0014 8214C6C700F80D6E8BF4094314E0109416E4FO0F3 DF 
0015 9E282E54B1A38214C6C700F80F508E6E8BF40943 ES 
0016 14E010C716E4F0F39E 4B 
0017 8A3A 


ASSEMBLEUR 


P. David & J. Taïllandier Programmation structurée (acte I) 10 
BASIC 

L. Istria Hanoï et la récursivité 33 
X. Bille Démontrez vos théorèmes 34 
J.Y. Hervé Programme "GRAPH22" (pour HP-75) 30 
L. Istria Programme "HANOI" 36 
X. Bille Programme "DEMOS" 37 
LE COIN DES LHEX 41 
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PROGRAMMATION STRUCTUREE 
(ACTE I) 


Le HP-71 de base possède peu d'instructions de 
programmation structurée. Bien sûr, il possède 
DEF FN, FOR et NEXT, GOSUB, CALL et SUB, ce qui est déjà 
très bien pour un Basic. 


Cependant, il est très pauvre par rapport à des 
langages réputés plus évolués, comme Pascal, C ou 
encore Ada. 


L'objet de ce Lex est de fournir des structures de 
contrôle dont certaines sont largement plus souples 
que les langages mentionnés ci-dessus. 


Mais pourquoi vouloir faire de la programmation 
structurée ? 


Nous ne tenterons pas de répondre ici à cette 
question. Une discussion sur Île sujet prendrait 
vraiment trop de place et trop de temps. Nous 
citerons juste les avantages que notre expérience de la 
programmation nous a permis de discerner : 


La programmation structurée a pour objectif de 
décomposer les problèmes complexes en une suite de 
problèmes plus simples. Cette décomposition conduit 
à une rédaction plus facile des programmes, une mise 
au point plus aisée, et une plus grande lisibilité. 


Cette structuration est maintenant possible sur HP-71 
avec le Lex STRUC2. 


LES BOUCLES 


La boucle WHILE … END WHILE 


La première forme de boucle, et la plus intéressante, 
est la boucle du type tant que. Par exemple, on 
écrira : 


10 X=0 

20 WHILE KEY$=!"" 
30 DISP X;X*X 
40  X=X+1 

50 END WHILE 


Cette boucle se lit comme : 
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tant que aucune touche n’est appuyée 
faire 
afficher x et son carré 
incrémenter x 
fin tant que 


L'affichage et l’incrémentation constituent le corps de 
la boucle. La condition est la condition de répétition 
de la boucle. Autrement dit, la boucle est répétée tant 
que la condition est vraie. 


Cette boucle peut ne jamais être exécutée. Si votre 
condition est fausse la première fois, le corps ne sera 
jamais parcouru, et l’exécution continuera tout de 
suite après le END WHILE. 


Il a été prouvé en 1966 (Théorème de Bôhm et 
Jacopini) que tout algorithme exprimé avec des GOTO 
pouvait être exprimé par des boucles de type 
tant que. 


Mais le plus intéressant est que cette boucle est le 
point départ des preuves formelles de programmes. 
Pour toute boucle de type tant que, on est sur que la 
condition est vraie dans le corps juste après le 
tant que, et fausse juste après la boucle elle-même. 
On peut ainsi bâtir des assertions. Une assertion 
valide à chaque tour de boucle est un inrvariant de 
boucle. Tout le travail de preuve consiste à 
déterminer l’invariant. La preuve est ensuite facile. 


Il est bien évident que peu de personnes 
programment en prouvant leurs programmes. 
Néanmoins, s’entrainer à déterminer des invariants 
est une excellente pratique. Programmer une boucle 
en déterminant d’abord l’invariant assure presque à 
coup sûr l’exactitude de la boucle. 


La boucle REPEAT .… UNTIL 


La deuxième boucle est la boucle de type répéter … 
jusqu’à. Elle s'écrit : 


10 X=0 

20 REPEAT 

30 DISP X;X*X 
40  X=X+1 

50 UNTIL KEY$#1" 


C'est une variante de la précédente. Le test est 
effectué en fin de boucle, c’est à dire que le corps est 
parcouru au moins une fois. D’autre part, la condition 
est l'inverse de celle testée par la boucle précédente. 


Pour résumer, la boucle est parcourue au moins une 
fois, et la sortie se fait lorsque la condition est vraie. 








La boucle LOOP .… END LOOP 


La dernière forme de boucle, et la plus simple, est la 
répétition infinie : 


10 X=0 

20 LOOP 

30 DISP X;X*X 
40  X=X+1 

50 END LOOP 


Dans cet exemple, la variable X est initialisée à 0 
avant d’entrer dans la boucle. Le corps de la boucle 
est formé des instructions 30 et 40, qui affichent le 
contenu de la variable X et son carré. 


La boucle ne contient pas de test de sortie. Elle est 
parcourue à l'infini. En pratique, l'appui sur CATTN] 
nous ramène à la finitude des concepts. 


Cependant, cette boucle est intéressante dans deux 
principaux cas : 

- une utilisation simple et rapide, pour un programme 
fabriqué vite et qui ne sert qu’une fois. Dans cas, un 
appui sur [ATTN] n’est pas un problème. 

- une boucle pour attendre un événement extérieur. 
Si, par exemple, vous désirez afficher les ‘carrés 
pendant 70 secondes (pourquoi pas ?), vous Phisele 
un ON TIMER judicieux avant la boucle. 


Le complice indispensable de cette boucle est le 
mot-clef LEAVE que nous allons voir maintenant. 


La sortie prématurée avec LEAVE 


L'ordre LEAVE permet de sortir prématurément d’une 
des boucles ci-dessus. On lutilisera principalement 
pour des cas exceptionnels. 


10 X=INT(RND*10) 

20 E=0 

30 REPEAT 

40 INPUT "Devinez Le chiffre : M:N 
50 IF N<O THEN LEAVE 

60  E=E+1 

70 UNTIL X=N 


80 DISP "C'était";N;". Essai No";E 


L'ordre LEAVE est typiquement utilisé pour sortir des 
boucles infinies Loop. C’est une facilité à placer à peu 
près au même niveau que le GoTo : c’est quelquefois la 
solution la plus simple, mais il ne faut surtout pas en 
abuser... 


LES CHOIX 


Le choix simple avec IF 


Une des principales raisons de GoTo est le 1F standard 
du HP-71. En effet, si un traitement un peu gros doit 
être fait dans une des branches d’un 1F, il n’y avait 
jusqu'ici pas de solution autre que l'instruction 
maudite. 


Maintenant, vous pouvez utiliser le 1F multi-lignes. 
Par exemple : 


10 IF X>=0 THEN 

20 Y=SORT(X) 

30  DISP X;Y 

40 ELSE 

50  DISP X;"est négatif" 
60  BEEP 1400,.075 

70 END IF 


Le segment de programme ci-dessus teste la valeur de 
la variable X. Notez le THEN terminant la ligne. Ceci 
indique un 1F multi-lignes. Nous reviendrons sur la 
distinction entre le 1F standard et le 1F de JPC Rom. 


Dans le cas où X est positif, on extrait sa racine 
carrée, et on affiche les deux nombres. 


Les le cas contraire, un message d’erreur est affiché, 


Notez le END 1F qui signifie la fin du 1F multi-lignes. 


Comment : distinguer: un IF mono-ligne d’un 1F 
multi-lignes ? C’est en fait très simple : un 1F 
mono-lignes contient un THEN directement suivi d’un 
ordre Basic. Par exemple : 


10 IF X>=0 THEN Y=SORT(X) @ DISP X;Y 


Un :F multi-lignes contient un THEN suivi d’un 
séparateur de mot-clef. Un tel séparateur est la fin de 
la ligne, le caractère à ou encore le début d’une 
remarque (caractère !). Notre premier exemple 
aurait pu être écrit comme : 


10 IF X>=0 THEN @ Y=SQRT(X) à DISP X;Y 
20 ELSE à DISP "... Q BEEP 1400,0.75 à END IF 


Notez également que le ELSE doit être précédé par un 
séparateur de mot-clef (début de ligne, a ou !) et suivi 
par un séparateur. 


Cette structure de choix vous permet une plus grande 


liberté dans la rédaction de vos programmes : vous 
n'êtes plus limités par la seule ligne du 1F, et vous 
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pouvez plus facilement blocs 


indépendants. 


rédiger des 


Le choix multiple avec SELECT et CASE 


Le test 1F est plutôt restrictif : soit une condition est 
vraie, soit elle est fausse. Et que se passe-t-il si une 
question a plusieurs réponses possibles ? 


Eh bien, c’est extrêmement simple. Pour vous en 
convaincre, regardez ci-dessous : 


110 DISP "Question :! 


120 REPEAT | peut être remplacé 
130  K$=KEY$ ! par La fonction 
140 UNTIL K$#1" ! KEYWAITS 


150 SELECT K$ 

160 CASE "#431 ! 
170 STOP 

180 CASE "#47 ,1#48n 14500 ,1#5 1" 
190 CALL DEPLACE(KS) 
200 CASE "fG'! ! 
210 CALL INTRO 

220 CASE "f21 ! 
230 CALL MODIF 

240 CASE "AN TO 171 
250 CALL LETTRE(K$) 
260 CASE ELSE 

270 DISP "Erreur! 
280 BEEP 1400,.075 
290 END SELECT 


[ATTN] 


Cf] CINPUT] 


Cf] [EDIT] 


Avouez que c’est lisible ! Si vous n’en êtes pas 
convaincus, vous pouvez essayer de programmer ça 
avec des GoTo, pour voir. Et vous n’avez pas encore 
tout vu ! Prenons un autre exemple : 


510 X=R"Z/LOG(A(I,J)) 

520 SELECT X 

530 CASE <0,>10 

540 DISP "Erreur 

550 BEEP 1400,.075 
560 CASE 0,>7.75 


| Compliqué... 


570 sv 

580 CASE <=2.25 
590 . 

500 CASE ELSE 
510 


520 END SELECT 


Tout commence par SELECT. Vous sélectionnez la 
valeur à comparer. Dans le premier cas, il s’agit de 
K$, X dans le deuxième. Cette valeur selectionnée est 
testée avec tous les CASE. 
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La première condition de CASE satisfaite est choisie, et 
l'exécution reprend au mot-clef juste après le CASE. Si 
aucune condition de CASE n’est satisfaite, l'exécution 
continue après le END SELECT à moins qu’il y ait eû un 
CASE ELSE. 

La syntaxe des cASE est difficile à expliquer, mais 
simple à comprendre. Schématiquement, nous avons : 


CASE élément , … 
CASE élément TO élément , … 
CASE opérateur relationnel élément , … 


Le premier cas est simplement une valeur à 
comparer. Si elle est égale à la valeur sélectionnée, 
l'exécution reprend après le CASE. 


Le deuxième cas apparaît dans le premier exemple 
(ligne 240). Si la touche appuyée est entre "A" et "z", 
l'exécution continue après le CASE. 


Le troisième cas est utile pour décomposer des 
intervalles. Par exemple : 


100 SELECT R 

110 CASE <-10,>+10 

120 DISP "Valeur aberrante'" 

130 BEEP 1400,.075 

140 CASE <=-0.5 

150 DISP "C'est grave! 

160 CASE <=-0.1 

170 DISP "Ca ne va pas très bien! 
180 CASE <=0.1 

190 DISP "On fait aller" 

200 CASE <=0.5 

210 DISP "IL fait beau aujourd'hui" 
220 CASE ELSE 

230 DISP "Yad'lajoie !" 

240 END SELECT 


Le premier cas (ligne 110) élimine tout de suite les 
valeurs aberrantes. Le deuxième cas (ligne 140) 
correspond à l'intervalle [-10,-0.5], le troisième (ligne 
160) à l'intervalle ]-0.5,-0.1], etc. Le dernier cas (ligne 
220) correspond à l'intervalle ]0.5,10] puisque les 
valeurs supérieures à 10 ont été éliminées par le 
premier cas. 


La structure SELECT mérite vraiment son nom de choix 
multiple. 


LA SUITE AU PROCHAIN NUMERO 


Vous avez peut-être remarqué que la clarté des 
exemples de cet article tenaient en partie à 
l'indentation des structures, c’est à dire au bon 
décalage des instructions pour faire apparaître des 
blocs. 


Le problème est que vous ne pouvez reproduire cette 
indentation avec les ordres LIST et PLIST. 


Pour y remédier, nous vous présenterons dans un 
prochain numéro une refonte de 8LIST et PBLIST (de 
Jean-Pierre Bondu, voir JPC 38). Cela vous rendra la 
vie nettement plus agréable. 


CONCLUSION 


Pour conclure, sachez que STRUCZ2 est strictement 
compatible avec Basic 4.0, le Basic utilisé par les 
«gros» ordinateurs HP (HP9000). Cela ne vous 
réconforte-t-il pas de savoir que le HP-71 est digne 
maintenant de ses grands frères ? 


Nous espérons que vous saurez profiter de ce Lex 
pour structurer vos programmes. Et n’hésitez plus à 
faire publier vos oeuvres dans JPC... 


Pierre David (37) 
Janick Taillandier (246) 
LEX 'STRUC2! 
=ARITH EQU  #061E0 
=AVMEMS EQU #2F594 
=BSERR EQU #0939A 
=CNFLCT EQU #08015 
=COMCK+ EQU #O32AE 
=CURREN EQU #2F56C 
=CURRST EQU #2F55D 
=D1=AVE EQU #18651 
=DROPDC EQU #05470 
=EOLXC* EQU #O52EC 
=EOLXCK EQU  #05405 
=EXPEX- EQU #0F178 
=EXPEXC EQU #0F186 
=EXPPAR EQU  #03FD9 
=EXPRDC EQU #05922 
=F-RO-3 EQU  #2FBAA 
=FINDA EQU #023E3 
=FIXP EQU  #02A6E 
=IOFNDO EQU  #118c1 
=IVEXPe EQU #02E35 
=LDCSPC EQU #2F6C1 
=MEMBER EQU #1B098 
=MEMERR EQU #0944D 
=MPOPIN EQU #0BD8D 
=MPOP2N EQU  #0BD54 
=MTHSTK EQU  #2F599 
=NTOKEN EQU #0493B 
=NUMCK  EQU #0369D 
=NXTSTM EQU  #08A48 
=OBCOLL EUU  #01435 
=OUTBS  EQU #2F58F 
=OUTBYT EQU #O2CE8 
=OUTELA EQU #05303 





=OUTNBC EQU #05423 
=OUTNIB EQU #02D28 
=POP1S EQU #0BD38 
=POPUPD EQU #08F3E 
=PRGMEN EQU #2F567 
=PSHGSB EQU #08F13 
=PgmRun EQU #0000D 
=RESPTR EQU #03172 
=REST*  EQU #03035 
=RUNRT1 EQU #074E7 
=S-RO-1 EQU #2F876 
=S-R0-3 EQU #2F880 
=S-R1-3 EQU #2F890 
=STMTDO EQU #2F891 
=STMTD1 EQU #2F896 
=STMTRO EQU #2F871 
=STRTST EQU #1B1C7 
=TBLJMC EQU #02426 
=TKSCN7 EQU #08A99 
=TRACEM EQU #2F7B0 
=TRFROM EQU #OFE59 
=TRTO+ EQU #0FE7B 
=Trace EQU #0000F 
=WRDSCN EQU #02C2A 
=bSTMT EQU #00801 
=fBASIC EQU #0E214 
=OFTYPh EQU #00010 
=tCOMMA EQU #000F1 
=tEOL EQU #000F0 
=tRELOP EQU #0008A 
=tTHEN EQU #000F4 
=tT0 EQU #O00F3 
=tXWORD EQU #OOOEF 
=UTEST EQU #0D435 


=tEND2 EQU 66 
=tWHILE EQU 67 
=tREPEAT EQU 68 
=tUNTIL EQU 69 
=tLEAVE EQU 70 


=tLOOP EQU 96 
=tSELECT EQU 97 
=tCASE EQU 98 
=t1F2 EQU 99 
=tELSE2 EQU 100 


=id EQU #E1 


=STRUCt EQU 9 


* 


Type de GOSUB stack 


* quartets de reconnaissance de : 
* 


=qENDL EQU 0 END LOOP 
=qENDS EQU 1 END SELECT 
=dENDI EQU 2 END IF 


JPC 52 Page 13 











SAUVDO EQU 
CSETYP EQU 





chEW EQU 
chEL  EQU 
chU  EQU 
chEl EQU 
chES  EQU 
chE|EI EQU 
chC|ES EQU 
chEl-E EQU 
chES-C EQU 
chL/EW EQU 
chL/EL EQU 
chL/U EQU 










* Predicats de 
Pred< EQU 
Pred= EQU 
Pred> EQU 
Pred? EQU 












CON(2) 
CON(2) 
CON(2) 
REL(5) 
NIBHEX 
REL(4) 
MSG 
POLL 













CON(3) 
REL(5) 
CON(1) 









CON(3) 
REL(5) 
Con(1) 



















CON(3) 
REL(5) 
CON(1) 


CON(3) 
REL(5) 
CON(1) 


CON(3) 
REL(5) 
CON(1) 


* 


MTIE X.T  T 


* 
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=STMTDO 
=S-R1-3 Type de l'objet (SELECT) 


cherche END WHILE 

ch. END LOOP 

ch. UNTIL 

ch. END IF 

ch. END SELECT 

ch. ELSE ou END IF 

ch. CASE ou END SELECT 
ch. END IF, saute ELSE 
ch. END SELECT, saute CASE 
LEAVE cherche END WHILE 
LEAVE cherche END LOOP 
LEAVE cherche UNTIL 


_— O0 © + CO U1 F5 KW D = © 


- © 


test 

#0001 
#%0010 
%0100 
%1000 


=id ID equivalent 
=tEND2 

=tLEAVE 

nxtlex 

F 

1+TxTbSt 

MSGTBL 

0 


*MAIN TABLE 


(TxEn01)-(TXTbSt) 
=END2e 
13 


CTxEn02)-(TxTbSt) 
=WHILEe 
13 


(TxEn03)-(TxTbSt) 
=REPEATe 
13 


CTxEn04)- (TXTbSt) 
=UNTILe 
13 


(TxEn05)-(TxTbSt) 


=LEAVEe 
13 


ABLE 





TxTbSt 

TxEn01 CON(1) 
NIBASC 
CON(2) 


TxEn05 CON(1) 
NIBASC 
CON(2) 


TxEn03 CON(1) 
NIBASC 
CON(2) 


TxEn04 CON(1) 
NIBASC 
CON(2) 


TxEn02 CON(1) 
NIBASC 
CON(2) 
NIBHEX 


STITLE 


=eNOWHL EQU 
=eNORPT EQU 
=eLEAVE EQU 
=eNOENW EQU 
=eINVLD EQU 


MBASE  EQU 
=eSTRUC EQU 
=eBLN EQU 


MSGTBL 
CON(2) 
CON(2) 


CON(2) 
CON(2) 
CON(1) 
NIBASC 
CON(1) 


* Structure Mismatch 


CON(2) 
CON(2) 
CON(1) 
CON(1) 
NIBASC 
NIBASC 
CON(1) 
NIBASC 
CON(1) 


NIBHEX 








5 
lEND' 
=tEND2 


9 
"LEAVE! 
=tLEAVE 


11 
"REPEAT! 
=tREPEAT 


9 
'UNTIL! 
=tUNTIL 


9 
IUHILE! 
=tUHILE 
1FF 


TABLE DE MESSAGES 


œ 1 5 KW 


236 


3 
(MBASE )+0 Structure Mismatch 
(MBASE }+1 


Li 


Lowest message # 
3 Highest message # 


16 
=eBLN Message # 1 
4 


12 


44 

=eSTRUC Message # 0 
11 

15 

‘Structur' 

'e Mismat! 

1 

ich! 

12 


FF Table terminator 





STITLE PARSE 
* 


* Syntaxes : 


WHILE <exp> 
END WHILE 
LOOP 
END LOOP 
REPEAT 
UNTIL <exp> 
LEAVE 
SELECT <exp> 
CASE <clause> [, <clause>]* 
CASE ELSE 
(<clause> ::= <exp> TO <exp> | 


+ * * * * 


* 


<relop> <exp> | <exp>) 
END SELECT 
IF <exp> THEN <eol> 
ELSE (en dehors d'un IF normal) 
END IF 


OÙ Æ À # #6 #4 *% * * 


* 


=LEAVEp 
=REPEATP 
=LOOPp  RTNCC 


=UNTILp 
=UHILEp GOVLNG =FIXP 


wrdscn GOVLNG =WRDSCN 


=END2p GOSUB wrdscen 
CON(6) (=tWHILE)-(=id)-(=tXWORD) 
REL(3) ENDWp 
CONCé) (=tLOOP)-(=id)-(=tXWORD) 
REL(3) ENDLp 
CON(6) (=tSELECT)-(=id)-(=tXWORD) 
REL(3) ENDSp 
CON(6) (=tIF2)-(=id)-(=tXWORD) 
REL(3) ENDIp 
CON(2) 0 
GOTO rest* 


Tokenisation du END WHILE / LOOP / SELECT / IF : 


* * * * 


Dans La chaine tokenisee (pointee par DO), nous 
avons les 6 quartets pour le codage du END (Le 
notre, pas celuyi du systeme), puis un quartet 
de reconnaissance, servant a identifier laquelle 
des 4 structures nous terminons : 


qENDL = 0 (necessaire) 
qENDS = 1 
qENDI = 2 


Si il n'y a pas de quartet de reconnaissance, 
c'est Un END WHILE 


OH OH OÙ OÙ Ù #  * *  * 


ENDWp 
D0=D0- 6 On oublie tWHILE 
RTN Cy := 0 

ENDSp P= =qENDS 
GOTO ENDLp 

ENDIp P= =qENDI 

ENDLP 


* 


* tXWORD id tEND2 tXWORD id tLOOP/SELECT/IF 


* A 
* DO 
* 

D0=D0- 6 On retire Le token reconnu 
* 
* tXWORD id tEND2 tXWORD id tLOOP/SELECT/IF 
* A 
* DO 
* 

C=P 0 C(0) := qEND L/S/I 

P= 0 c'est plus propre... 


outnib GOVLNG =OUTNIB 


* 


* CASE ELSE 

* 

CS00p DO0=D0- 6 tELSE nous interesse pas 
RTN Cy := 0 par Le DO=D0- 6 


RON HR RENE HN ee ee ee A 


* CASEp 
* 
* Syntaxes : 
* CASE ELSE : 
” tXWORD id tCASE 
*  <relop> <exp> 
tRELOP <1 quartet> texp 
<exp> TO <exp> 
texp tTO texp 
<exp> 
texp 
CASE <clause> , <clause> 
tXWORD id tCASE tclause tCOMMA tclause 


ke he ke He 0 0e he he eh he he eee he ee ee eee eee eee eee ke ARR Re 


À * * * *  * 


EXPTYP EQU =F-RO-3 


=CASEP 


* 


* EXPTYP := 0 ; 

* 
CD1EX 
D1=(5) EXPTYP 
C=0 s 
DATI=C S 
D1=C 


* ELSE ? 
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GOSUB wrdscn 

CON(6) (=tELSE2)-(=id)-(=tXWORD) 
REL(3) CSO0p 

CON(2) 0 


* 


* analyse des clauses 
* 
GOSUB resptr 
CSp10 
* 


* <relop> ? 

* 
GOSBVL =NTOKEN 
LCC2) =tRELOP 
?A#C  B 


GOYES  CSp20 <exp> TO <exp> ou <exp> 


* 


CASE <relop> <exp> 


GOSBVL =OUTBYT stocker tRELOP 


C=A xs C(XS) := specificateur 
CSR x 
CSR x C(0) := specifier 
GOSUB outnib stocker Le "specifier 
CASE <25 à" 
D1 


tXWORD id tCASE tRELOP q 


A 


DO 


ER À # LE: € 


GOTO  CSp30 parse expression & fin 


* CASE <exp1> [ TO <exp2 ] 


* 
CSp20 
GOSUB resptr 
GOSUB expck parse et verifie expi 
* 
* NCASE 32 TO 127 a" 
* ñ 
” D1 
* tXWORD id tCASE t32 
* A 
Æ DO 
* 
LC(2) =tTo 
2A#C B 
GOYES  CSp40 


GOSBVL =OUTBYT On n'incremente pas D1 


* UCASE 32 TO 127 à" 


* A 


LE D1 
* tXWORD id tCASE t32 tTO 
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* 


* 


* 


* 


* 


F *% # + + 


+ # + + + 


DO 


CSp30 GOSUB expck 
CSp40 


pp... 


A 


D1 
... t<dernier token reconnu> 


A 


DO 


A(B) = token a analyser (tCOMMA où tEOL) 
DO = * flot de sortie 
D1 = * passe Le token A(B) 


GOSBVL =COMCK+ 


GOC CSp10 ",1 trouvee, on recommence 


resptr GOVLNG =RESPTR 


=SELECTP 


GOSBVL =EXPPAR 
?2ST=1 0 
GOYES ivexp 


GONC  resptr  B.E.T. 


ke oh he he he oh ee eh eee he oh eh eh eh ee 


* 


OÙ OÙ Ù Ù #Ù # # # *  * 


Æ OÙ OÙ OÙ OÙ OÙ OÙ OÙ #  %  #  *#  * 


expck 


But: analyser l'expression pointee par D1, et 
verifier que Le type correspond a celui des 
expressions precedentes. 

Entree: 

- DO = * flot de sortie 
- D1 = * flot d'entree 
Sortie: 
- A(B) = token suivant 
- P=0 
- A(S) = C(S) = type de l'expression 
- DO = * flot de sortie (passee l'exp) 
- D1 = * passe Le 1er token non reconnu 

Appelle: EXPPAR 

Niveaux: 4 (EXPPAR) 

Abime: A-D, RO-R1, ST(0-3,7,11), FUNCDO, F-RO-3 

Detail: verification du type : 
type := type de l'expression 
si EXPTYP = 0 

alors EXPTYP := type 
sinon si EXPTYP # type alors erreur 
fin si 

Historique: 

87/02/28: conception & codage 


He eee BE A A PAU RCA CR Re 


*x 


* 


* 


+ * * * * + * # # + % *# * 


* * #% * + 


X * * 


expck GOSBVL =EXPPAR 
?2ST=1 0 
GOYES  ivexp 
LC(1) 1 
?ST=1 3 
GOYES expck1 
C=C+1 A 


C(0) := type de l'expression 


expck1 CSRC W 
CD1EX 
D1=(5) EXPTYP 
A=DATI S 
2A=0 S 
GOYES  expck2 
D1=C 
?A=C S 
RTNYES 

ivexp GOVLNG =IVEXPe 


expck2 DATI=C S 
D1=C 
RTN 


IF2p 


MIF A+B THEN <eol>' 


A 


D1 


tXWORD id tIF2 


ñ 


DO 


GOSBVL =NUMCK 


"IF A+B THEN <eol>! 
D1 
tXWORD id tIFSTR tA 


GOSUB resptr 


"IF A+B THEN <eol>" 


A 


D1 


GOSUB wrdscn 
CON(2) =tTHEN 
REL(3) THENp 

CON(2) 0 

GOTO rest* 


MIF A+B THEN <eol>" 


A 


not valid expression ? 


num exp. 
not string expression ? 


string exp. <==> 2 


CCS) := type 


A(S) : 


restaurer D1 


expressions meme type 
“invalid Expr' 


EXPTYP : 


tB t+ 


DO 


# * # * 


* 


* 


D1 


tXWORD id tIFSTR tA tB t+ tTHEN 


THENp DO=D0- 


2 


A 


DO 


On oublie le token de THEN 


* On fait maintenant Le test decisif : 
si on trouve tEOL, ta, t!, c'est a nous ! 
sinon, on repasse la main, via REST*, au IF 


* 
* 
* 


* 


* 


* Tokenisation 
* IF A+B THEN 


* 


* * * * 


* 


interne. 


On ne peut pas utiliser EOLCK, car il accepte La 
presence de tELSE. Hum... 


GOSBVL =NTOKEN 


LC(2) 
?A=C 
GOYES 
LCASC 
?A=C 
GOYES 
LC(2) 
?A=C 
GOYES 
GOTO 


Resptr GOTO 


=tEOL 
B 
Resptr 
1! 

B 
Resptr 
11! 

B 
Resptr 
rest* 


resptr 


finale 
<eol>1 


ñ 


D1 


tXWORD id tIFSTR tA tB t+ tEOL 


=ELSE2p 


CD1EX 


D1=(5) 
C=DAT1 


D1=C 
?2C#0 
GOYES 
RTN 


rest*  GOVLNG 


STITLE 


SELECTd 


=UNTILd 


=WHILEd GOVLNG 


=END2d A=DATI 


GOSUB 
GOC 
C=A 


=S-RO-3 


S 
rest* 


=REST* 


DECOMPILE 


=DROPDC 


B 
eolxck 
ENDWd 
A 


DO 


Sauve D1 
"IF statement in progress! 


restaure D1 
"IF statement in progress! 


Ok, on prend (RTNCC) 
C'est pas à nous 


trouve tEOL (ou equival) 
C(0) := quartet lu 
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D1=D1+ 
GOSBVL 
REL(3) 
REL(3) 
REL(3) 
ENDId LCASC 
P= 
GOTO 
LCASC 
P= 
GOTO 
LCASC 
P= 
GOTO 
LCASC 
P= 
ENDd10 GOSUB 
A=DATI 


ENDLd 


ENDSd 


ENDWd 


* 


* ATTENTION : 
* 

=LEAVEd 
=REPEATd 
=LOOPd 

=ELSE2d GOVLNG 
=IF2d  GOSUB 
LCASC 
p= 
GOTO 
=CASEd  GOSUB 
GONC 
LCASC 
p= 
GOTO 
A=DAT1 
LC(2) 
?AHC 
GOYES 


csd10 


1 
=TBLJMC 
ENDLd 
ENDSd 
ENDId 


‘F1! 
2*2-1 
ENDd10 
"POOL! 
2*4-1 
ENDd10 
"TCELES! 
2*6-1 
ENDd10 
'ELIHW! 
2*5-1 
outnbc 
B 


Le code continue !11 


=OUTELA 


exprdc 
INEAT ! 
2*5:1 

ENDd10 


eolxck 
csd10 
'ESLE' 
4*2-1 
ENDd10 
x 
=tRELOP 
B 

csd20 


* <relop> trouve. IL faut Le sortir en ASCII 


GOSBVL 
GOSUB 
D1=D1+ 
GONC 


+ À *X *# 


CSd20  GOSUB 
LC(2) 
?A#C 
GOYES 


* 


=ARITH 
outnbc 
3 


Csd30 B.E.T. 


<relop> n'existe pas. IL faut decompiler une 
expression, puis voir ce qu'il y a apres... 


exprdc 
=tTO 
B 


Csd40 c'est donc tCOMMA ou EOL 


* TO : on s'attend donc maintenant a une exp. 
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LCASC !.-O0T ! 
P= 4*2-1 
GOSUB  outnbc 


D1=D1+ 2 
A=DAT1 B 
GOSUB  exprdc 
GOSBVL =EOLXC* 


CSd30 
CSd40 


* Si on est revenu, c'est qu'il y a une tCOMMA 


LCASC !,! on l'envoie... 

P= 1-1 ... dans Le flot 
GOSUB  outnbc -... de sortie 
D1=D1+ 2 on l'oublie... 
GOTO CSd10 ... et on continue 


outnbc GOVLNG =OUTNBC 
exprdc GOVLNG =EXPRDC 


STITLE EXECUTION 


RORRONORONMRORRNE KM ROROMRR ARR RO ROR ROROR RRORORRORR RAR RRRORRRRR AR 


* SELECT 


But: executer l'ordre SELECT 
Historique: 
87/03/01: conception & codage 
87/08/29: correction SELECT 1 ! 
87/08/29: correction SELECT 1 / CASE O ! / END 


RORRORONOMR RON Ve ROM RON HORMONE RNA RAR RH RH RH 


S # # *# * + 


* 


* tokenisation des structures SELECT / END SELECT 
* 

* tXWORD id tSELECT <exp. alpha ou num.> 

F tXWORD id tCASE tRELOP specifier <exp> 

* tXWORD id tCASE <exp> 

* tXWORD id tCASE <exp> tTO <exp> 
* tXWORD id tCASE 

* tXWORD id tEND2 qENDS 


* 


(CASE ELSE) 


REL(5) 

REL(5) 
=SELECTe 

DO=D0- 

GOSUB 

DO=D0+ 

GOSBVL 
* 


=SELECTd 
=SELECTp 


é+2 
stoadr 
é+2 
=EXPEX- 


SAUVDO := * Stlen 


Evaluer Le SELECT 


* ACW) := top 16 nib. of MS 


* 


LCHEX 9 Legal BCD digit 

?A<=C P 

GOYES SLO20 Real number 

LCHEX OE Complex number signature 


?7A=C 


GOYES 
x 


B 
SLO20 Complex number 


* Nous sommes dans Le cas "string" où autre... 


* 


SLO10 GOSBVL 
GOSUB 
DO=(5) 
CD1EX 
C=C+A 
DATO=C 
DO=D0+ 
DATO=A 
C=0 
GONC 

* 


=POP1S Erreur si "autre..." 
stoMs Proteger La chaine 
=STMTRO 

CCA) := * dernier caract. 
C(A) := * premier caract. 
S-RO-0 := * chaine 


S-RO-1 := Len en quartets 
Type := alpha 
SLO30 B.E.T: 


n > > > 


* Cas reel ou complexe 


* 


SLO20  GOSUB 
C=0 
C=C+1 


* * * * 


SLO30 DO=(5) 
DATO=C 


* 


stoMS 
S 
S 


CCS) = type (0 = alpha / 1 = numerique) 
AVMEME = pointeur de M.S. 


CSETYP 
S CSETYP := type (alpha/num) 


* Debut de La boucle de recherche de CASE ou 


* END SELECT 
* 
SL100  GOSUB 
GOSUB 


P= 
GOSUB 
GOSUB 
DO=D0+ 
LC(2) 
A=DATO 
?A=C 
GOYES 


DO=D0+ 


A=DATO 

GOSUB 

GONC 
sl900 GOTO 
* 


* DO = * debut 


* 


SL150 


* 


recadr 
eol 


chC|ES 

cherche 

stoadr  SAUVDO := adresse trouvee 
6 DO := * tCASE ou tEND2 
=tEND2 

B 

B 

sl900 END SELECT seulement 


2 DO := * apres tCASE 
B 

eolxck 

SL150 Il y a quelque chose. 


SL900 CASE ELSE 


de ce qu'il y a a analyser 


* IL y a quelque chose a analyser 


* 


LC(2) 


=tRELOP 


7A#C B 
GOYES SL200 <exp> ou <exp> TO <exp> 


* 


* tRELOP specifier <exp> 
> 
D1=(5) =S-RO-3 
DO=D0+ 2 
C=DATO S C(S) :=specifier 
DATI=C S S-RO-3 := predicat 
DO=D0+ 1 
GOSUB evalMS 
CDOEX 
DO=(5) =S-RO-3 
C=DATO S 
DO=C 
P=C 15 
GOSUB compar 
GONC  SL300 
GOC SL900 BiE Th 


* <exp> 
* <exp> TO <exp> 


SL200 GOSUB evalMS 
A=DATO B 
LC(2) =tTO 
?A=C B 
GOYES  SL250 


* <exp> 

* 
P= Pred= 
GOSUB compar 
GONC  SL300 


GOC SL900 CAR 


* <exp> TO <exp> 


SL250 P= (Pred>)+(Pred=) 
GOSUB compar 
GONC SL290 
DO=D0+ 2 On passe tTO 
GOSUB evalMS 
P= (Pred<)+(Pred=) 
GOSUB compar 
GONC SL300 
GOC SL900 BEST: 


SL290 DO=D0+ 2 On passe tTO 
GOSUB evalMS Evaluation de <exp2> sans 
* prendre Le resultat 


* 


* Fin de l'evaluation. Si on est arrive jusqu'ici, 
* toutes Les conditions etaient fausses, 
SL300 A=DATO B 

LC(2) =tCOMMA 

2A#C B 


JPC 52 Page 19 





GOYES sl100 
DO=D0+ 2 
A=DATO B 
GOTO SL150 
sl100 GOTO SL100 


c'est donc tEOL 
on passe La tCOMMA, et 
on recommence 


Sortie et branchement. On a trouve : 

- une clause vraie, où 

- CASE ELSE, ou 

- END SELECT 

Dans tous Les cas, SAUVDO = adresse de debut de 
La Ligne (Stlen). 


E # + # # * *# *# 


SL900 GOSUB recadr 


GOTO  goeol 


ee he eee eee he eee eee he ee AA 


* compar 

* 

But: comparer l'objet pointe par D1 et L'objet 
pointe par AVMEME. Traite Les verification de 
type (numerique / alpha). 

Entree: 


* OÙ * *# * 


- P = predicat de comparaison 
- D1 = * objet2 
- AVMEME = * objet1 
- si CSETYP = 1 : type(objet1) 
- si CSETYP = O0 : type(objet1) 
S-RO-0 = 
S-RO-1 = 
Sortie: 
ss" Cy'ait à 
- Cy = 0 : faux 
Abime: A-D, D1, RO-R3 
Appelle: uTEST, FPOLL, STRTST 
Niveaux: 4 (FPOLL + pCMPLX) 
Note: DO est sauvegarde dans STMTD1 
Historique: 
* 87/03/01: conception & codage 


ke ke he de ee eee eee ee he ee ee ee ee Re 


num 
alpha, et 
adresse debut de objet1 
Longueur en quartets 


vrai 


OÙ OÙ %Ù Ù Ù # # # *# * * 


* 


s1=2 EQU 0 
s1>2  EQU 1 
compar 


* 


* Sauvegarde P dans C(S) 
* 

C=P 15 

P= 0 


C(S) := Predicat 
Propre et net... 


* 


* Sauvegarde de DO 

* 
CDOEX 
DO=(5) =STMTD1 
DATO=C A 
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* * * * 


* 


CSETYP = 
CSETYP = 


DO=(5) CSETYP 
A=DATO S 


1 si objet 
0 si objet 


A=A-1 S 
GOC cmpstr 


cmpnum R1=C 


RO 
ACW) 
R2 
C(W) 


OX # # * * 


* 


GOSBVL =MPOP2N 


I(objet1) 
R(objet1) 
I(objet2) 
R(objet2) 


SETHEX 
GOC 
CRIEX 
P=C 15 
CR1EX 

GOSBVL =uTEST 
SETHEX 

P= 0 

GOTO 


cmpemp 


cmpfin 


Comparaison numerique 


Type de L'objet 
ACS) := type de objet1 


num 
str 


Cy := 1 si (obj1 = str) 


R1(S) := predicat 


compare complex 


P = predicat 


et puis voila... 


* Comparaison de complexes 


* 


cmpcmp 


* * * 


* 


Pour Le moment... on ne supporte pas Les 
complexes. 


GOVLNG =CNFLCT Conflict !1! 


* Comparaison alphanumer ique 
* 


cmpstr D=C S 


GOSBVL =POP1S 
CD1EX 

C=C+A A 

D1=C 

DO=(5) =S-R0-1 
C=DATO À 

ST=0 s1>2 
ST=0 s1=2 
A=0 S 

2C=0 A 
GOYES  cmps00 
2A=0 À 
GOYES add> 
?2C#A À 
GOYES cmps10 
ST=1 s1=2 


D(S) := predicat de comp. 
CCA) := ” fin objet2 
CCA) := ” debut objet2 
D1 := * 2eme chaine 

DO := * longueur objet1 
C(A) := Longueur objet1 
Leni < Len2 

Len # Len2 

Leni = 0 ? 

Len2 = 0 ? 

obj1 > Mu 

leni = Len2 


GONC  cmps20 
* 


* Longueur de obj1 = 0 
* 
cmps00 ?A=0 A 
GOYES add= 
GONC  add< 


cmps10 ?C<A A 


GOYES  cmps20 
ST=1 s1>2 
C=A A 


CCA) = longueur min 
ST(s1>2) = 1 si (leni 
ST(s1=2) = 1 si (Len 
DO = * obj1 

D1 = * obj2 


# € * *% * * 


cmps20 DO=D0- 5 


A=DATO A 
DO=A 
GOSBVL =STRTST 
P= 0 
A=0 S 
GoC cmps50 
* 
* 
* longueurs. 
* 
?2ST=0 s1=2 
GOYES  cmps30 
add= LC(1) Pred= 
CSRC 
A=AIC S 


GOTO  cmps90 


cmps30 ?ST=1 s1>2 
GOYES add> 


add<  LC(1) 
CSRC 
A=AIC S 
GOTO cmps90 


Pred< 


* 


B.E.T. 


B.E.T. (len1 < Len2) 


?len1 < Len2 


Leni > len2 


> len2) 
= Len?) 


DO=(5) =S-R0-0 


DO := * objet1 


A(S):= predicat de sortie 
Strings not equal 


Les chaines sont egales jusqu'au minimum des 


goto Bilan 


* Les chaines ne sont pas egales. 


* 


cmps50 A=DATO B 
C=DAT1 B 
?2A<C B 
GOYES  add< 


add> LC(1) 
CSRC 
A=AIC S 


Pred> 


A(B) := premier de objet1 
C(B) := premier de objet2 
obj1 < obj2 


Bilan : 
ACS) 
D(S) 


predicat en sortie 
predicat en entree 


* Ù  * * * 


cmps90 C=D s 
A=A&C S 
2A#0 S 
GOYES cmpfin Cy := 1 
cmpfin 
* 
* Restauration de DO sans perturber La Cy 
* 
D0=(5) =STMTD1 
C=DATN A 
DO=C 
RTN 


KR ee he He He He ee eee eee ee he he ee ee he 


* CASE 

* 

* But: executer l'ordre CASE 

* Hstorique: 

* 87/03/01: conception & codage 


AOMOK OK OH ee HA HA D HOMO ee He ER Re 


REL(5) =CASEd 

REL(5) =CASEp 
=CASEe 

DO=D0- 8 

GOSUB eol 

P= chES-C 

GOSUB cherche 

GOTO  goeol 


AAA HR ke ke ke ee ee HR RO Re 


* LEAVE 

* 

* But: executer l'ordre LEAVE 

* Hstorique: 

* 87/03/01: conception & codage 


HR he he he He ee he eh He He He ee he he ee eh ee ee he ee eee eee ee 


REL(5) =LEAVEd 

REL(5) =LEAVEp 
=LEAVEe 

GOSUB stoadr 

GOSBVL =POPUPD 


GOC struce Pile vide 

LC(1) =STRUCt 

CSRC C(S) := type de retour 
2D#C S 


GOYES struce 
* 


* Le type est reconnu. Quel est Le token qu'il faut 


* chercher ? 
* 


C=D A C(A) := * apres Le token 
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DO=C 

DO=D0+ 4 

A=DATO B 

GOSBVL =FINDA 

CON(2) =tWHILE 

REL(3) LV10 

CON(2) =tLOOP 

REL(3) LV20 

CON(2) =tREPEAT 

REL(3) LV30 

NIBHEX 00 
struce GOTO STRUCe "Structure Mismatch! 


DO := * token 


* 


* REPEAT / UNTIL 
* 


LV30 P=P+1 


* 


* LOOP / END LOOP 
* 


LV20  P=P+1 


* 


* WHILE / END WHILE 


* 


LV10 C=P 0 c(0) := chX 
P= 0 
D=C P D(0) := chX 
LC(1) (CchL/EW) 
C=C+D P C(O) := chL/EW + P 
P=C 0 P := chL/EW, chL/EL, chL/U 


GOSUB recadr 
GOSUB cherche Chercher la fin de struct. 
GOTO  goeol 


Wheel he he ee ee he he he ee eee oh eee ee ee ee ee he 


* ENDe 


* But: traiter Les ordres END WHILE, END LOOP, 
END SELECT et END IF 
Entree: 


* 


* 


- DO = * quartet de reconnaissance 
Sortie: 

- voir chaque branche 
Utilise: voir chaque branche 
* Abime: voir chaque branche 
* Niveaux: voir chaque branche 
* Historique: 
* 87/02/27: reconception 


He ee he he ee ee ee ke AR AR RACE 


+ + * 


* 


REL(5) =END2d 
REL(5) =END2p 


=END2e 
A=DATO B token suivant / quartet 
GOSUB eolxck 
GOC ENDWe tEOL ==> END WMHILE 


* 


* A(0) = quartet de reconnaissance 
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LC(1) =dENDL 

2A=C P 

GOYES ENDLe END LOOP 

GONC nxtstm B.E.T. END SELECT/IF 


HORHROMR RME De ee M he EH ee ee ee ee ARR A 


* ENDWe 
* 
But: proceder a l'execution de END WHILE 
Historique: 
87/02/27: reconception 
87/08/02: correction de "10 WHILE 1 1!" 


RORRONOM HR HOM HE HOME HOUR ROMROROR ROM OR AOR RAR RAR 


* * x * 


ENDWe LC(2) =tWHILE 
GOSUB pop 
GOSUB eval 
GONC nxtstm 


Cy := 0 si e=0 


GOSUB recadr DO := adresse depilee 
GOSUB push 
GOTO go 


nxtstm GOVLNG =NXTSTM 


NH he he he he he he he he he he he ee eh eh he he eee he he ee ee ke 


ENDLe 


But: proceder a l'execution de END LOOP 
Historique: 

87/02/27: reconception 

87/08/02: correction de "10 LOOP 1!" 


he he he ee he he eee he he ee he ee he ee ee ee he 


OÙ # *# *# *# 


ENDLe LC(2) =tLOOP 
GOSUB pop 
GOSUB push 
GOTO go 


HR ROM he he ee he he ee eh he M eee he ee he eee ee he ee ee he 


* WHILEe 

* 

* Executer Le statement WHILE 

* Entree: 

* _- DO = * expression a analyser 
* Sortie: 

* par go ou NXTSTM 

* Historique: 

* 


87/02/28: reconception & codage 


HOROMOROMMOK RMC He He RH EH HAE DH HR RAR RAR 


Tokenisation d'une boucle WHILE / END WHILE : 


tXWORD id tWHILE <exp> 


<corps de La boucle> 
tWORD id tEND2 


# # Æ À 


AH ! VOUS ECRIVEZ 


Vous vous sentez en verve, mais vous ne savez pas sous quelle forme "l’équipe de 
rédaction" souhaite recevoir votre prose. C’est ici que se trouvent les réponses à 
vos questions. 


Dans la mesure du possible, vous devez nous envoyer vos écrits sur support 
magnétique (carte, cassette ou disquette). Soyez sans crainte, nous vous 
retournerons vos biens après copie. 


Si vous ne pouvez pas utiliser de support magnétique, ou ne pouvez vous rendre 
aux réunions, alors et alors seulement faites le sur papier. 


Que ce soit sur une feuille de papier, ou sur support magnétique, ne dépassez 
pas 50 caractères par ligne. 


Pour nous épargner du travail, insérez dans votre texte les commandes de 
formattage suivantes (et non les commandes du formatteur HP) : 

"°" centre un titre, par exemple : 
"TITRE 


"\'(CHR$(92)) marque le début et la fin d’un paragraphe. Par exemple : 


\Début de paragraphe exprimant le contenu de vos idées qui, même si vous en 
doutez, intéressera certains des membres du Club. Surtout si vous vous sentez 
débutant. Les articles pour débutants écrits par des débutants sont ceux qui 
manquent le plus. Fin de paragraphe.\ 


N'oubliez pas de mettre les accents. Utilisez le jeu de caractères Romans. Les 


possesseurs de HP71 utiliseront les redéfinitions de touches ci-dessous, ainsi que 
le fichier CHARLEX listé dans le coin des Lhex. 


Jean-Jacques Dhénin (177) 


DEF KEY 'fW'!, CHR$(197): (é) 
DEF KEY 'fE', CHR$(193): té) 
DEF KEY 'fR', CHR$(201); (è) 
DEF KEY 'fY', CHR$S(203); (ù) 
DEF KEY 'fU', CHR$(195); (ü) 
DEF KEY 'fl', CHR$(209); () 
DEF KEY 'f0', CHR$(194); (ô) 
DEF KEY 'f/!, CHR$(92); (V0 
DEF KEY 'fA!, CHR$(192); (à) 
DEF KEY ‘fS', CHR$(200): (à) 
DEF KEY ‘fD', CHR$(205); (&) 
DEF KEY ‘fJ', CHR$(207); (ü) 
DEF KEY ‘fK!, CHRS(221); (i) 
DEF KEY 'f*1, CHR$S(124); (1) 


DEF KEY 'fC', CHR$(131); Cç) 








PPC PARIS SE REUNIT 
UNE FOIS PAR MOIS 


Comme vous le savez peut être déjà, PPC Paris se réunit une fois par mois, en 
plein coeur de Paris. Amenez votre matériel, votre bonne volonté et vos idées ! 
Plus vous en apporterez, et plus vous en trouverez chez vos collègues de PPC. 


Ces réunions se déroulent de manière très libre, aucun ordre du jour, discussion 
ou autre n'étant imposé. Un membre du bureau est toujours présent. Ainsi, si 
vous désirez remettre votre article tout frais au Journal, si vous avez des 
suggestions à faire, si vous voulez vous procurer des anciens numéros de JPC, ce 
sera en principe toujours possible. 


Si donc cela vous intéresse, n’hésitez plus un seul instant, venez nous rejoindre 
tous les premiers samedis de chaque mois (sauf en période de vacances 
scolaires) au : 


Centre de Jeunesse et de Loisirs Jean Verdier 
11 rue de Lancry 
75010 Paris 


et en montant au deuxième étage, vous entendrez des éclats de rire et des 
discussions passionnées vers la salle 215. Attention, toutefois, de venir entre 16 et 
19h. 


Pour l'accès en métro, trois possibilités s’offrent à vous : 
- Métro Strasbourg Saint Denis : 

Sortie porte St Martin / Bd St Denis, coté pairs 

- Métro République : 

Sortie Bd St Martin, coté pairs 

- Métro Jacques Bonsergent : 

Sortie Bd Magenta, coté impairs. 


Ah, j'oubliais ! JPC est (souvent) distribué en avant première lors de ces 
réunions. À bon entendeur, salut ! 


Les dates des prochaines réunions sont : 
Samedi 5 mars 1988 

Samedi 16 avril 1988 

Samedi 7 mai 1988 

Samedi 4 juin 1988 


Pierre David (37) 


NOUS EN AVONS 


La coopérative du Club dispose : 


- de lecteurs de cartes magnétiques pour HP-71, neufs, dans leur boîte d’origine, 
avec 5 cartes magnétiques, pour 500 F (port compris), 


- des anciens numéros de JPC, au prix de 40 F + 7,40 F de frais 
d’affranchissement, 


- d’une année complète de numéros de JPC (février à décembre / janvier) pour 
300 F (offre spéciale) port compris, 


- des I.D.S. du module Forth / Assembleur (listing interne commenté par HP) 
pour 250 F (port compris), 


- des VASM pour HP-41 (listings des Roms internes commenté par HP) pour 
300 F (port compris). 


- de manuels de service du HP-41 au prix de 75 F (port compris). 
- de manuels de service du HP-75 au prix de 75 F (port compris). 


Si vous souhaitez d’autres renseignements, n’hésitez pas à nous contacter. 


Nom : 
Prénom : 
No de membre : 
Adresse : 
Commande : 

Qté Prix Unitaire Prix Total 
lecteur de cartes pour HP-71 x 500 F 
anciens numéros de JPC x 47,40 F 
année complète de JPC x 300 F 
1.D.S. du module Forth x 250 F 
V.A.S.M. x 300 F 
Manuel de service pour HP-41 ‘ x 75 F 
Manuel de service pour HP-75 X 75 F 

Total F 


Préciser éventuellement Les 
numéros de JPC commandés : 


PPC PARIS 


Association régie par la loi de 1901, enregistrée 
à Paris le 2 décembre 1982 sous le numéro 82/3240 


BULLETIN D’ADHESION 


Prénom |:{2121:121 21212 RNA Te 


Profession 


Intérêts HAE: 





Matériel HP en votre possession 


RE NRC en Le AN PP RP Se LR 
Autre matériel informatique 


Lee 


Comment avez-vous connu PPC Paris ? 


ES 


Que recherchez-vous au sein de PPC Paris ? 











La Loi No 78-17 du 6 janvier 1978 relative à l'informatique, aux fichiers et 
aux libertés, garantit à toute personne justifiant de son identité un droit 
d'accès et de rectification auprès des services ou organismes chargés de mettre 
en oeuvre des traitements informatiques comportant des informations nominatives 
le concernant. 


Je souhaite adhérer au club PPC Paris conformément aux statuts de 
l'Association. Au mieux de ma connaissance, je déclare avoir Le droit de 
fournir tous Les programmes et informations que je vous enverrai (sans 
enfreindre des obligations de secret à l'égard d'autres personnes ou 
organismes) pour publication dans le Journal de Liaison, sans obligations ni 
responsabilité d'aucune sorte (en cas d'utilisation frauduleuse) de La part des 
dirigeants de PPC-Paris. 


Date |_|_1/1_1_1/191_[ | 
Signature, précédée de La mention "Lu et Approuvé!! 
Le montant de la cotisation s'élève à 350.00 F pour un an. 


Etudiants: 300.00 F (justificatif indispensable) 


Paiement effectué Le |_|_|/|_|_|/19|_|_| à L'ordre de PPC Paris, 
par [ ] chèque bancaire, [ ] chèque postal ou [ ] mandat Lettre 


Veuillez envoyer toute correspondance à : 
PPC Paris, BP 604, 75028 Paris Cedex 01, France 


REL(5) =WHILEd 
REL(5) =WHILEp 


=WHILEe 
GOSUB stoadr 
GOSUB eval 
GONC  WHL10 


* 


* expression # 0 (vrai) : on continue en sequence 
* 
GOSUB recadr DO := * debut expression 
GOSUB push 
GOTO nxtstm 


* 
* expression = 0 (faux) : on cherche END WHILE 
* (DO = * apres La fin de l'expression) 
* 
WHL10 P= ChEW chercher END WHILE 
GOSUB cherche 
GOTO  goeol 


De ee he he ee he oh ee he eee he ee oh he ee ee ee ee ee he ee de ee ke 


* LOOP / REPEAT 

* 

* But: executer Les ordres REPEAT et LOOP 
* Entree: 

* Sortie: par NXTSTM 

* Appelle: push 

* Historique: 

* 87/02/28: conception & codage 


MH he he he ee ke he ee He ee ee he he eh eh eh eee eee ee ee 


Tokenisation d'une boucle LOOP / END LOOP 


* * * 


tWORD id tLOOP 
<corps de La boucle> 
tXWORD id tEND2 qENDL 


Æ * * * 


Tokenisation d'une boucle REPEAT / UNTIL 


tXWORD id tREPEAT 
<corps de La boucle> 
tXWORD id tUNTIL <exp> 


Æ OÙ Æ # # *#  * 


REL(5) =REPEATd 
REL(5) =REPEATP 
=LOOPe 
=REPEATe 
GOSUB push 
GOTO nxtstm 


KRRKRRRRRRARERRARERÉRERERERRRRERÉARÉRRRRRÉÉAR ARR É 


* UNTILe 
* 


* But: executer l'ordre UNTIL 


* Entree: 


* - DO = * debut de l'expression 
* Sortie: 
* - par go ou nxtstm 


* Appelle: pop, push, eval, recadr, eval 
* Historique: 

* 87/02/28: conception & codage 

* 87/08/02: correction de "10 REPEAT !1" 


RORCRORRORHONK KV He HORMERORORONR RU RON MR RAR ke eh de ke 


REL(5) =UNTILd 
REL(5) =UNTILp 
=UNTILe 


* 


* Sauver DO pour eval 
* 


CDOEX 
D0=(5) =STMTD1 
DATO=C A STMTD1 := * debut de l'exp 


* Depiler l'adresse de retour et verifier REPEAT 


LC(2) =tREPEAT 
GOSUB pop 


* Evaluer l'expression 


DO=(5) =STMTD1 


C=DATO A 
DO=C 
GOSUB eval 


GOC Nxtstm 


* 


On boucle : 


GOSUB recadr DO := * fin du REPEAT 
GOSUB push 
GOTO go GOTO "fin du REPEAT" 


Nxtstm GOTO nxtstm 


He ee he he he he eh ee ee he eee ee OA ee ee 


ATFé 

* 

* But: executer l'ordre IF 

* Hstorique: 

* 87/03/01: conception & codage 


KR Ke K OK DH He He He ee he ee A ee A A 


* * 


Tokenisation d'une structure IF / END IF 


tXWORD id tIF2 <exp> 
<alternant si vrai> 

tXWORD id tELSE2 
<alternant si faux> 

tXWORD id tEND2 qENDI 


Æ * * * 


* * * 
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ou encore : * Sortie: par RUNRTI 
* Algorithme: 
tXWORD id tIF2 <exp> * si execution au clavier 
<alternant si vrai> 
tXWORD id tEND2 ŒENDI 


alors 
si adresse de destination n'est pas dans 
dans bSTMT 
alors "Structure Mismatch' 
fin si 
fin si 
si trace 


REL(5) =IF2d 
REL(5) =IF2p 


GOSUB eval 
GOC Nxtstm 
P= chE [EI 
GOSUB cherche 
GOTO  goeol 


alors trace 
fin si 
RUNRT1 
Historique: 
87/02/27: conception & codage 
87/03/02: integration de goeol 
87/03/04: correction du bug "trace" 


87/08/02: modification de go, bug #10 LOOP 1" 
* But: executer l'ordre ELSE KM he he de he ee he he ee He He AA AH De ee ce ee ee ee ee 


He ee he eh he he ee ee he he HA RO RO K 


* ELSE2 
*« 


OÙ OÙ 6 OÙ OÙ #7 À À À # # # * *# 


* Hstorique: 
* 87/03/01: conception & codage 


KM HO he he he He AN he M HA He M AR RO RAR go GOSUB 


recadr 
DO=D0- 6+2 6 : token, 2 : Stlen 


REL(5) =ELSE2d 
REL(5) =ELSE2p 
=ELSE2e goeol GOSUB eol 
P= ChEI 
GOSUB cherche 
GOTO  goeol 
D(A) := DO 
he he he he he he he he he he he he ee ee ee ee ee eo he 
STRUCe CD0EX 
DO=C 
But: generer une erreur et retourner a Basic D=C 
Entree: - 
Sortie: par BSERR si execution au clavier : 
Historique: 
87/02/28: conception & codage 2ST=1 =PgmRun 
KKKKKRKEKEEREEEERARRERERERRRERRRRRMÉRÉRÉRÉRRR AURA KE GOYES go10 
LC(3) =bSTMT Statement buffer (clavier) 
STRUCe P= 0 GOSBVL =IOFNDO D1 := * statement buffer 
LC(4) (=id)-(=eSTRUC) 
GOVLNG =BSERR Le buffer existe toujours. Du moins, on espere ! 


eolxck GOVLNG =EOLXCK CD1EX CA) := ” buffer 
?D<C A dest < debut buffer ? 
RAR he he he he he he ee he he ee he he he he he he he he he he he he he he ee eh eh 0h he he ee he he he he he GOYES STRUCe 
* go, goeol C=C+A A CA) := ” fin buffer 
?2D>C A dest > fin buffer ? 
But: revenir a Basic, en faisant un GOTO sur GOYES STRUCe 
le statement suivant DO (go), ou sur Le token 
suivant La Ligne dont La longueur est pointee trace ? 
par DO (goeol). 
Entree: go10 ?ST=0 =Trace 
go : GOYES runrt1 
- SAUVDO = * Stlen du debut de La Ligne courante ; 
goeol : * Le mode TRACE est actif 
- DO = * Stlen du debut de La ligne courante * 
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Æ 


HUE, Æ, EE 


* 


* 


* * * * 


Ce qui suit est pompe dans trflck (#0FE18) 
(avec modificatio) 


2ST=0 =PgmRun 
GOYES runrt1 
D1=(5) =TRACEM 


p= 0 
LCHEX 2 
A=DAT1 B 
A=A&C P 
A=A-1 P 


Jusqu'au 4 mars 1987, l'absence de cette 
instruction declenchait abusivement Le mode 
TRACE FLOW Lors de L'execution d'une fonction de 
STRUCLEX 

GOC runrt1 


Elle est toute petite, hein ? 


D1=(5) =CURRST 


C=DAT1 A 

D1=C 

D1=D1+ (=0FTYPh)-1 
A=DAT1 A 

ASR A 

LC(5) =fBASIC 
?A#C A 


GOYES runrt1 
code Taillandier inspire par Les dieux d'HP 
CDOEX 
R2=C 
DO=C 


Est-on a La fin du fichier ? 


D1=(5) =CURREN 


A=DAT1 A ACA) := CURREN 

C=C+1 À 

C=C+1 À C(A) := * apres le tEOL 
?2C>=A À 


GOYES runrti 


On n'est pas hors du fichier. On peut tracer en 
toute quietude : Le numero de Ligne est valide. 


GOSBVL =TRFROM partie FROM de trace 


C=R2 
DO=C 
GOSBVL =TRTO+ partie TO de trace 
A=R2 
DO=A restaure DO et fin 


runrt1 GOVLNG =RUNRT1 


HN HON HOME He RH RERO RER Re 


* eval 


But: evaluer l'expression pointee par DO, et 
renvoyer Le resultat sous forme booleenne (Cy) 


+ * * 


Entree: 
- DO = * expression tokenisee 
Sortie: 
- P=0 
- DO = * apres l'expression tokenisee 
- Cy = 0 : expression = 0 
- Cy # O0 : expression # 0 
Appelle: EXPEX-, MPOPIN 
Niveaux: 5 (EXPEX-) 
Abime: A-D, DO, D1, RO-R&, FUNCtion scratch 
Historique: 
87/02/27: ajout de documentation 
87/02/27: clarification du code 


KO ke he he he he ee he he he ee he ee he M he ee ee Re RAR RO 


Æ OÙ OÙ OÙ OÙ OÙ OÙ Ù Ù #  *  *  * 


eval  GOSBVL =EXPEX- vide La M.S. 
GOSBVL =MPOPIN depile Le nombre (C ou R) 
SETHEX 
A=0 S ne prend pas Le signe (-0) 
GONC eval10 nombre reel 
* 


* nombre complexe 
* 
2A#0 MW 
RTNYES 
A=RO 
A=0 S 
eval10 ?2A#0 VW 
RTNYES 
RTN 


HA eee he he he he he he ee 0H ee ke ee ee ARR 


* push 


But: mettre DO dans La pile des GOSUB. 
Entree: 


* Ù * * 


- DO = valeur a empiler 
Sortie: 


* 


* 


- DO = valeur en entree 
Appelle: PSHGSB 
Niveaux: 4 (PSHGSB) 
Abime: A-D, D1 
Historique: 
* 87/02/27: conception & codage 


eh he he he he eh ee he eh ee A HA RAA RAC 


# * * * 


push LC(1) =STRUCt C(0) := type de l'adresse 


CSRC C(S) := return type 
D0=D0- 6 DO := * token 

ADOEX A(A) := adresse du token 
GOSBVL =PSHGSB 

CSRC C(A) := adresse empilee 
DO=C DO := * adresse du token 
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DO=D0+ 6 
RTN 


DO := adresse en entree 


AC de he le he 2e he ee ee eh eh ee ee ke 


* pop 

* 

* But: depile une adresse sur la GOSUB stack, 
* verifie Le type de l'adresse (tSTRUC), pointe 
* DO a cette adresse et verifie que Le token 
* pointe est Le meme que C(B). 

* Entree: 

* - C(B) = token a verifier (2 q. seulement) 
* Sortie: 

* _- DO = * adresse depilee (passe Le token) 
* Appelle: POPUPD 

* Niveaux: 2 (POPUPD) 

* Utilise: A-D, DO, D1, RO 

* Detail: 

* si type de l'adresse # tSTRUC 

* alors "Structure Mismatch!" 


* 


si token pointe n'est pas bon 
€ alors "Structure Mismatch!! 
* Historique: 

* 87/02/27: conception & codage 


RORORORORMONOMON RERO He ee he Re ee ke 


pop RO=C RO(B) := token a verifier 
GOSBVL =POPUPD 
GOC STRUce pile vide 
LC(1) =STRUCt type de retour 
CSRC C(S) := STRUCt 
?D#C S 
GOYES STRUce 


ce qui est depile ne nous 
appartient pas... 


* Le type est reconnu, c'est a nous. Est-ce qu'on 
* pointe sur La bonne structure ? 


* 
C=D A 
DO=C DO := * adresse de retour 
A=0 u 
A=DATO 6 A(W) := token Lu 
DO=D0+ 6 DO := * apres Le token 


GOSUB stoadr SAUVDO := DO + 6 


C=RO C(B) := token 
B=C B B(B) := token 
C=0 W 

C=B B C(W) := token 
CSL W 

CSL W 

csL W 

csL W C(5-4) := token 
LC(4) (=id)-(=tXWORD) 

?2A=C VW 

RTNYES Tokens identiques : OK 


STRUce GOTO  STRUCe 
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AAA eh he he DH 2H he he A AH 2H AA ARR ARR 


* recadr 

* 

* But: restaurer dans DO l'adresse sauvee par pop. 
* Entree: - 

* Sortie: 

* - DO = adresse sauvee par pop 

* Niveaux: 0 

* Abime: C(A), DO 

* Historique: 

* 87/02/28: conception & codage 


OK he he He he he He He he A AA eh A ee ee oh he 


recadr DO0=(5) SAUVDO 
C=DATO A 
DO=C 
RTN 


ke k he he he he he he He he he He He he AA ee he eee ee eee ee ee 


* stoadr 
* 


* But: sauver DO dans SAUVDO 


* Entree: 

* _- DO = valeur a sauver 
* Sortie: 

* - DO inchange 


* Niveaux: 0 
* Abime: C(A) 
* Historique: 
* 87/02/28: conception & codage 


AMOR HA he He AH He eh ee ee ee ee he ee 


stoadr CDOEX 
DO=(5) SAUVDO 
DATO=C A 
DO=C 
RTN 


ROROHOKHOR HOMME AH He RAA ee ke 


* stoMS 
* 


* But: sauver D1 dans LDCSPC 


* Entree: 

* - D1 = valeur a sauver 
* Sortie: 

* - DO inchange 


* Niveaux: 0 
* Abime: C(A) 
* Historique: 
* 


87/03/01: conception & pompage sur stoadr 
RRROROKHOH OK k He de BK he he de eee ee De ee MR AA ee ee de ee 


stoMS CD1EX 
D1=(5) =LDCSPC 
DATI=C A 
D1=C 
RTN 





he de he he eee ke He he ee RH ee RH Re RON OR 


* evalMS 

* 

* But: Evaluer l'expression pointee par DO, et La 
* ranger dans La pile a l'adresse contenue dans 
% LDCSPC. 

* Entree: 

* - DO = * debut de l'exp. tokenisee 

+ - LDCSPC = * M.S. 

* Sortie: 

* - DO = * apres l'expression (token non util.) 
# - D1 = * M.S. 

* __- A(W) = 16 quartets au sommet de La M.S. 

* Niveaux: 5 

* Abime: A-D, RO-R4, ST, DO, D1, FUNC scratch 

* Historique: 

* 87/03/01: conception & codage 

* 


87/03/02: modification pour integration EXPEXC 


he oh he he ee he he ee oh ee he ee he oh he he he ee he ee he he he oh ee ee he oh ee he ee ee de 


evalMS D1=(5) =LDCSPC 
C=DAT1 A 
D1=(4) =MTHSTK 
DAT1=C A 
GOVLNG =EXPEXC 


RARNONRRRRRRURÉURRÉRRRRRRRMARRRRRRRRRRRRARÉ RAR ÉÉ UHR 


* eol 

* 

* But: calculer l'adresse de La fin du statement 
* courant (adresse de tEOL ou t@) connaissant 
” l'adresse du debut de La ligne (* Stlen). 

* Entree: 


* - DO = * longueur de La Ligne (Stlen) 
* Sortie: 
* - DO = * ta ou tEOL ou... 


* Abime: ACA), C(A), DO 
* Historique: 


* 87/03/01: extraction de "'goeol!! 
MORHOHMOM RME he ee he A A He DR ROM OR RAR 


eol A=0 A 


A=DATO B A(B) := longueur 

CDOEX C(A) := * longueur 

C=C+A A C(A) := * fin de La ligne 
DO=C 

RTN 


STRuce GOTO  STRUCe 


KKKKEKRRERARÉRRRARARRRRRRARÉRÉRARÉARRRRARAURAURARK 


* cherche 

* 

* But: chercher pour l'objet specifie par P 
* Entree: 

* - P = quartet de recherche 

chEW : chercher END WHILE 

chEL : END LOOP 


* 


* chU : UNTIL 

gd ChEI : END IF 

; ChES : END SELECT 

* chE|EI : ELSE ou END IF 

* chC|ES : CASE ou END SELECT 

# chEl-E : END IF, autorise ELSE 

" CchES-C : END SELECT, autorise CASE 
” chL/EM : END WHILE, autorise (*) 

æ chL/EL : END LOOP, autorise (*) 

* chL/U : UNTIL, autorise (*) 

: (*) = CASE, ELSE, END SELECT, END IF 
* - DO = tEOL ou t@ du statement courant 
* Sortie: 

* si l'objet a ete trouve 

* _- DO = * Stlen du statement reconnu 

* Abime: A-D, DO, D1, P, SAUVDO 

* Niveaux: 


* Appelle: chpush, chpop, FINDA, TBLJMC, stoadr, 
*  recadr, TKSCN7 

* Historique: 

* 87/03/01: conception & codage 


Ke ke he he de he he ee he he ee he he ee he he ee he he ke ee eee ee he eee ee 


* Version recursive : 


* SUB cherche (P) 


*  T1$ = premier token a chercher (selon P) 

*  T2$ = deuxieme token a chercher (si il y a) 
* LOOP 

# TKSCN7 

F SELECT XWORD 

* CASE "LOOP!'!,!'WHILEM,!HREPEATI, SELECT ,MIFI 
; P= ch" & (token final correspondant) 
: CALL cherche (P) 

* CASE T1$, T2$ 

* LEAVE 

” CASE ''END WHILE/LOOP/SELECT/IF'",MUNTILM, 
* CASEL, SELSEN 

# “Structure Mismatch'! 

END SELECT 

* END LOOP 

* END SUB 

* 

* 

* Version derecursivee : 

* 

* cherche: 

* initialiser La pile 

* cher: 

*  T1$ = premier token a chercher (selon P) 

*  T2$ = deuxieme token a chercher (si il y a) 
# TKNSCN7 

? LOOP 

* SELECT XWORD 

* CASE "LOOP','IWHILE!,!MREPEAT!,!SELECT', "IF 
* 


PUSH P 
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Avancer sur La fin de La ligne GOSBVL =TKSCN7 
= Mch"! & (token final correspondant) 
GOTO cher (Arghhhhhhh 1!) 0 : non trouve : "Structure Mismatch" 

CASE T1$, T2$ 1 : trouve. Les ennuis commencent... 
IF pile _ vide THEN GOTO sortie 
Avancer sur La fin de La Ligne GONC STRuce "Structure Mismatch! 
POP P ” 
GOTO cher (Arghhhhhhh 1!) * Sauvegarde de l'adresse de tXWORD 

CASE "END WHILE/LOOP/SELECT/IF'","!UNTIL", x 

NCASE!N ,/NELSEN GOSUB stoadr SAUVDO := * tXWORD 
“Structure Mismatch! 
END SELECT Dans SAUVDO, nous avons : 
END LOOP 
Sortie: Stlen tXWORD id tTOKEN 


A 


SAUVDO 
Zones memoires utilisees : DO=D0+ 2 


AVMEME : pour voir si on ne depasse pas Les tXWORD id tTOKEN 


A 


limites de La memoire du HP-71. 
OUTBS : bas de la pile DO 
AVMEMS : sommet de La pile 


A=DATO B id trouve 
SP EQU =AVMEMS LC(2) =id NOTRE id 
BP EQU =OUTBS ?A=C B 
Pvar  EQU =S-RO-3 GOYES che022 
GOTO che900  EOL(DO-2) ; GOTO cher10 
cherche che022 
C=P 15 CCS) x 
P= 0 * C'est notre id 
GOSBVL =OBCOLL initialiser La pile ” 
* OBCOLL n'a pas modifie DO DO=D0+ 2 := * TOKEN 
P=C 15 P := chX * 
cher  C=P 0 C(0) := quartet de rech. * tXWORD id tTOKEN 
P= 0 Ouf ! + # 
D1=(5) Pvar % DO 
DATI=C P Pvar := quartet de rech. + 
che010 A=DATO B A(B) := token 
* * 
* adresse de la fin d'analyse : * Est-ce un token de structure ? 
* * (WHILE, LOOP, REPEAT, SELECT, IF, END, UNTIL, 
D1=(5) =PRGMEN * CASE et ELSE) 
C=DAT1 A CCA) := PRGMEN par defaut * 
?2ST=1 =PgmRun LC(2) =tEND2 
GOYES che020 ?A=C B 
$ GOYES che025 
* On cherche dans Le buffer bSTMT 
* On pourrait aller directement au TBLJMC, mais ca 
LC(3) =bSTMT nuit a La Lisibilite et a La maintenabilite. 
GOSBVL =IOFNDO Vive La programmation structuree 
CD1EX 
C=C+A A NIBHEX 3 LC 
che020 D=C A CON(1) 2*8-1 (15) 
* CON(2) =tWHILE 
* On cherche Le token tXWORD : CON(2) =tLOOP 
* CON(2) =tREPEAT 
LC(2) =tXWORD CON(2) =tSELECT 
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CON(2) =tIF2 

CON(2) =tUNTIL 

CON(2) =tCASE 

CON(2) =tELSE2 

P= 2*8-1 

GOSBVL =MEMBER 

GOC che900  Byte not in set 
che025 


* 


* Est-ce un debut de structure ? 

* 
GOSBVL =FINDA 
CON(2) =tWHILE 
REL(3) che200 
CON(2) =tLOOP 
REL(3) che210 
CON(2) =tREPEAT 
REL(3) che220 
CON(2) =tIF2 
REL(3) che230 
CON(2) =tSELECT 
REL(3) che240 
CON(2) 00 


* 


* Non. Va-t-on trouver ce qu'on cherche ? 
* 

D1=(5) Pvar 

C=DATI1 P 


che099 GOSBVL =TBLJMC 
REL(3) che100 
REL(3) che110 
REL(3) che120 
REL(3) che130 
REL(3) che140 
REL(3) che150 
REL(3) che160 
REL(3) che170 
REL(3) che180 
REL(3) che190 
REL(3) chela0 
REL(3) che1b0 


* 


* UWHILE", MLOOP", MUNTIL", MIF“, SELECT" 
* 


che240 P= chES-C END SELECT, sans CASE 
GOTO che200 
che230 P= chEI-E END IF, sans ELSE 


GOTO che200 
che220 P=P+1 
che210 P=P+1 
che200 


* 


* P = nouveau quartet de recherche 


C=P 15 C(S) := nouveau quartet 
P= 0 
GOSUB chpush empiler Le courant 


D1=(5) Pvar 
DATI=C S 


* 


* ATTENTION : Le code continue !1!1 
* 


che900 GOSUB recadr 
DO=D0- 2 
GOSUB eol 
GOTO che010 


* 


* chercher END WHILE 
* 


che100 GOSUB recadr 
DO=D0+ 6 DO := ”* q. de reconnais. 


ee 


tXWORD id tEND qENDx tEOL ou encore 
tXWORD id tEND tEOL 


* A 


# DO 


* 


A=DATO B 

GOSUB eolxck 

GONC Struce ‘Structure Mismatch'! 
GOTO che300 B.E.T. a fin 


* chercher UNTIL 


che120 LC(2) =tUNTIL 

GOSUB che400 

GoC che299 Trouve 
Struce GOTO STRUCe Non trouve 
* 


* chercher ELSE ou END IF 
* 
che150 LC(2) =tELSE2 
GOSUB che400 
GOC che299 Trouve 
P= =qENDI Non. Chercher END IF 
GOTO che110 B.E.T. 


x 


* chercher CASE ou END SELECT 


* 


che299 GOTO  che300 


che160 LC(2) =tCASE 
GOSUB che400 
GOC che299 Trouve 
P= =qENDS Non. Chercher END SELECT 
GONC che110 B.E.T. 


* chercher END WHILE, mais pas CASE, ELSE, 
* END SELECT, END IF 

* 

che1b0 P=P+1 

che1a0 P=P+1 

che190 C=P 15 
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p= 0 


D=C S D(S) := chEW, chEL ou chU 
A=DATO B 

LC(4) (=tCASE)-(=tELSE2) 

P= 2*è-1 


GOSBVL =MEMBER 

GONC che175 Trouve : on recommence 
LC(2) =tEND2 

?A#C B 

GOYES che195 


* 


* tEND2 trouve : est-ce END SELECT ou END IF ? 
* 
DO=D0+ 2 
A=DATO P 
LC(1) =qENDS 
?A=C P 
GOYES che175 Trouve, on recommence 
LC(1) =qENDI 
?A=C P 
GOYES che175 Trouve, on recommence 
che195 C=D S 
CSLC C(0) := quartet de rech. 
GOTO che099 ch. END WHILE/LOOP/UNTIL 


* 


* chercher END SELECT, mais pas CASE 
* 
che180 LC(2) =tCASE 
GOSUB che400 
Goc che175 On repart pour une rech. 
P= =qENDS 
GONC che110 B.E.T. 


che175 GOSUB recadr 
DO=D0- 2 
GOSUB eol 
GOTO che010 C'est reparti comme en 14 


* 


* chercher END IF, mais pas ELSE 


* 


che170 LC(2) =tELSE2 
GOSUB che400 
GOC che175 On repart pour une rech. 


* ATTENTION : Le code continue !!1 


* chercher END IF 


che130 P=P+1 


* 


* chercher END SELECT 


* 


che140 P=P+1 


* 


* chercher END LOOP 
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* 


che110 


tXWORD id tEND qENDx tEOL ou encore 
tXWORD id tEND tEOL 


#7 + 


* 


C=P 15 
P= 0 
GOSUB recadr 
DO=D0+ 6 
A=DATO B 
GOSUB eolxck 
Goc STruce tEOL... ==> END WHILE 


CCS) := qENDx 


DO := * qENDx ou tEOL 


* A(B) = token lu 


CSLC C(0) = qENDx 
?2A#C P 
GOYES STruce 


* 


ATTENTION : Le code continue !11 


* 


Si La pile est vide 
alors 
sortir 


#* *# * * * 


sinon 
eol 
chpop 
goto che010 
fin si 


Ù * * * * 


che300 GOSUB recadr 


DO=D0- 2 DO := * Stlen 

GOSUB chpop 

RTNC Sortie sur pile vide 
GOSUB eol 


GOTO  che010 


STruce GOTO  STRUCe 


* 


* Est-ce Le token C(B) ? 
* 


che400 A=DATO B 


?A=C B 
RTNYES Cy := 1 
RTN Cy := 0 


AOAROKOK KE ROROROKHROUOM HEURE HORREUR AREA AAOR AR RAR RON RARE 


* chpush 
* 


* But: empiler Les tokens courants (T1$, et T2$) 
* sur La pile de recherche. 


* Entree: 
# ;Pp= 0 
* _- Pvar = recherche courante 


- AVMEME = 


Sortie: 


KO * *  * 


Abime: A(A), 


Niveaux: 1 
Historique: 


# * * * + 


Limite sup. de La memoire dispon. 


- SP = sommet de La pile de recherche 


- si pas assez de place : memerr 
- SP reactualise 


CCA), D1 


Appelle: DI=AVE 


87/03/01: conception & codage 


ee he he ee 0e ee ee he eh he he he he ee A A A ke 


chpush D1=(5) 
A=DAT1 
A=A+1 
DATI=A 
GOSBVL 
?A>=C 
GOYES 
D1=(5) 
C=DAT1 
D1=A 
D1=01- 
DAT1=C 
RTN 


memerr GOVLNG 


SP 

A ACA) := SP 

A ACA) := SP + 1 

A Sp := SP + 1 

=DI=AVE C(A) := (AVMEME) 

A 

memerr 

Pvar 

P C(0) := Pvar 
D1 := SP + 1 

1 

P empiler Pvar 

=MEMERR 


HR HA ee he he he he ee he he eee A RO 


* chpop 
* 


But: depiler 


courants. 
Entree: 
- P=0 


recherche, 


Les tokens au sommet de La pile de 
et Les mettre dans Les tokens 


C=DATI 
D1=(5) 
DAT1=C 
RTN 


P C(0) := valeur depilee 
Pvar 
P Pvar := valeur depilee 


Cy = O CA=A-1) 


he he he he ee ee ee eee eee he he ee ee eee RAC OR 


* nxtlex 


AH he he he ee eee ee ee ee 2H HU DORA HART 


nxtlex CON(2) 
CON(2) 
CON(2) 
CON(5) 
NIBHEX 
REL(4) 
CON(4) 
CON(5) 


*MAÏIN 


CON(3) 
REL(5) 
CON(1) 


CON(3) 
REL(5) 
CON(1) 


CON(3) 
REL(5) 
CON(1) 


CON(3) 
REL(5) 


=id ID equivalent 
=tLOOP 

=tELSE2 

0 

F 

1+TxTbSt2 

0 

0 


TABLE 


(TxEn06)-(TxTbSt2) 
=LOO°e 
#D 


(TxEn07)-(TxTbSt2) 
=SELECTe 
#D 


(TxEn08)-(TxTbSt2) 
=CASEe 
#D 


(TxEn09)-(TxTbSt2) 
=]F2e 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
*k 


* 


* 


- BP = bas de La pile 
- SP = sommet de La pile de recherche 


Sortie: 


- Cy = 0 : pile non vide 

- SP reactualise 

- Pvar, C(0) = recherche courante 
- Cy = 1 : La pile etait vide 


Abime: ACA), CCA), D1 
Niveaux: 0 
Historique: 
87/03/01: conception & codage 


ke he he ee ee ee eee eee he ee ee ee ee CR 


chpop D1=(5) BP 


C=DAT1 A C(A) := bas de La pile 
D1=D1+ 5 D1=(5) SP 

A=DAT1I A ACA) := sommet de La pile 
?2A=C A pile vide ? 

RTNYES oui : Cy := 1 

A=A-1 A 

DATI=A A nouveau SP 

D1=A D1 = SP 


CON(1) #9 


CON(3) (TxEn10)-(TxTbSt2) 
REL(5) =ELSE2e 
CON(1) #D 


* 


XTEXT 


* 


TABLE 


TxTbSt2 
TxEn08 CON(1) 7 


NIBASC 
CON(2) 


TxEn10 CON(1) 
NIBASC 
CON(2) 


TxEn09 CON(1) 
NIBASC 
CON(2) 


"CASE! 
=tCASE 


7 


"ELSE! 
=tELSE2 


jp! 
=tlF2 
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TxEn06 CON(1) 7 
NIBASC 'LOOP! 
CON(2) =tLOOP 


TxEn07 CON(1) 11 
NIBASC 'SELECT' 
CON(2) =tSELECT 


NIBHEX 1FF 


END 


De, ve Sais Pas <a qu cette macline. 
mais elle, est de plus eu plus 
alledv evse. 
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HANOI ET LA RECURSIVITE 


Eh bien me revoilà encore une fois, et dans cette 
rubrique pour vous parler d’un petit délire 
informatique nommé récursivité. Qu’est-ce donc que 
cette drôle de bestiole au nom qui nous fait penser à 
Monsieur Propre (allusion à celui qui récure, bien 
entendu) ? Eh bien, il s’agit d’un outil informatique 
très pratique qui nous permet de simplifier bien des 
problèmes 


Une petite explication s'impose, non ? Imaginons que 
vous vouliez effectuer une tâche quelconque, À assez 
compliquée ; vous ne savez pas quelle est la marche à 
suivre, mais vous savez qu’en agissant d’une manière 
a sur À vous vous ramenez à un cas À plus simple. De 
proche en proche, en agissant par tâches a, vous allez 
arriver à un cas À évident. Simple à réaliser. Donc, 
vous savez simplifier À, et lorsque À est simplifié au 
maximum, vous pouvez effectuer À. il vous suffit 
ensuite de réappliquer les taches a dans l’autre sens 
pour vous ramener au cas du début, mais vous vous 
êtes facilité la tache, et la recursivité, c’est ça. 


Un exemple concret : la fonction Factorielle(n) 
(notée n!). On ne connaît pas n!, mais on sait : 
nl=nx(n-1) 

11=1 


A partir de là, les choses deviennent très simples. En 
effet : 


ni=nx(n-1)! 
=nx(n-1)x(n-2)! 
=nx(n-1)x(n-2)x(n-3)1! 


=nx(n-1)x(n-2)xX(n-3)x...x3x2x1 


Je pense que vous avez tous compris quelles peuvent 
être les utilisations de ce genre de raisonnement. 
Pour s'amuser un peu (car il faut dans la vie, ne 
croyez vous pas ?), je vous propose donc de voir 
comment arriver à formaliser le problème des Tours 
de Hanoï. Tout le monde, je pense, connaît ce petit 
jeu vieux comme le monde : devant soi sont alignés 3 
pieux ; dans le premier, une série de disques de tailles 
différentes, empilés par ordre décroissant. Le but du 
jeu est de tous les faire passer sur le troisième en 
suivant deux règles on ne peut plus simples : 


- ne déplacer qu’un disque à chaque fois, 
- ne jamais mettre un disque plus grand sur un plus 
petit. 


On peut bien entendu se servir des 3 pieux pour 
tenter d’arriver à ses fins. 


Voici un petit dessin, j'espère clair, des positions de 
départ et d’arrivée avec 3 disques : 


| 
El | 
RS, 1 
Re 
1 2 3 
PF 
nue 
EE = 
het ele 
1 2 3 


Eh bien, comme dit plus haut, tentons un peu de 
formaliser le problème. Pensons-le avec 3 disques, il 
sera grand temps de voir plus après. Je ne sais pas 
déplacer ABC de 1 à 3. En fait, je sais, mais les règles 
m'interdisent de prendre ABC et de le mettre sur 3. 
Alors réfléchissons un peu. Je me simplifie la vie en 
disant que je vais déplacer BC de 1 sur 2, je verrais 
plus tard comment, puis À de 1 sur 3, j'ai le droit. 
Puis à nouveau BC de 2 sur 3. Et maintenant, 
attention Mesdames et Messieurs, je récurre : pour 
déplacer BC de 1 sur 2, je vais déplacer C de 1 sur 3, 
B de 1 sur 2, puis C de 3 sur 2. Je suis le même mode 
de pensée que pour ABC. Bon, j'ai BC sur 2 et A sur 
1. Je le mets sur 3, et je redéplace BC de 2 sur 3: 


C:2sur1 
B :2 sur 3 
C:lsur3 


et le tour est joué. ABC est sur 3. 
Pour 4, ou 5, ou # disques, on réalise le même 
raisonnement qui fait déplacer n-1 disques, puis le 


n'Me, puis rempiler n-1 disques. 


Voyons maintenant comment programmer cela en 
Basic récursif bien sûr. J’ai besoin de 3 pointeurs : 


1- le nombre de disque (N) 

2- la case de départ (D) 

3- la case d’arrivée (A) 

donc, si j'appelle H la fonction Tours de Hanoï, j'ai : 


H(N,D.A). 
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- au départ, D=1 et A=3 

- si N=1, j'affiche D et A 

- sinon, je descends d’un niveau : N=N-1, D ne 
change pas et A devient la case restante, c’est à dire, 
ni D, ni A. On réalise cela par A=6-A-D,. 


Puis, une fois tout dépilé, j'affiche A et D, pour 
déplacer le plus grand disque du moment, et je 
rempile sur lui : 


- si N=1 j'affiche D et A, 
- sinon, N=N-1, A ne change pas, et D subit la même 
modification que À avant : D=6-D-A. 


Et c’est fini. 


Et voila le travail. Simple non ? J'espère, comme 
toujours, vous avoir intéressé avec mes petits délires. 
A bientôt. 


Laurent Istria (3) 


DEMONTREZ VOS THEOREMES 


Ce programme a pour objet la logique des 
propositions et les règles dites de Wang pour 
l'algorithme de démonstration. En d’autres termes, il 
s’agit d’un logiciel capable de déduire P= >Q à partir 
de P<=>Q, par exemple. Bien entendu, DEMOS n’a 
pas la prétention d’égaler Prolog, beaucoup s’en faut ! 
Néammoins, il peut résoudre grand nombre de 
questions, comme vérifier des formules de cablage en 
logique électronique (compteur, bascule, etc). 


Démontrer : Quelques précisions sur le sens 


L'énoncé du théorème ne se pose pas tout à fait à la 
manière des livres de Maths. 


Ici, il y a une hypothèse et une conclusion (des 
formules propositionnelles) et le but du jeu est de 
montrer que de la première, la seconde s’en déduit. 
Donc il faut que l’hypothèse et la conclusion soient 
ensemble vraies ou fausses en fonction de leurs 
variables composantes. 

En résumé, le théorème «hypothèse donne 
conclusion » est vrai si et seulement si : 
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- hypothèse et conclusion sont vraies, 
- hypothèse et conclusion sont fausses. 


Signes cabalistiques des formules 


Pour construire une formule, il faut tout d’abord des 
variables propositionnelles : P,O,R,DO,ar… ; elles 
sont composées de 2 caractères au mieux dans 
DEMOS. Ces variables prendront selon demande les 
valeurs vrai ou faux. 


L’articulation de ce beau monde se fait autour de 
connecteurs : 


/ (négation) : si P est vrai, alors /P est faux et vice 
versa. On a //P qui vaut P. 


+ (ou) : si l’un des deux P, Q est wrai alors P+Q 
devient vrai. 


. (et) : si les deux P, Q sont vrais alors P.Q devient 
vrai. 


> (implique) : P>Q est une autre manière d'écrire 
/P+0Q.L’implication est donc fausse seulememt dans 
le cas P vrai, Q faux. 


= (equivaut à) : P=Q s'écrit aussi (P>Q)(QO>P). 
L’équivalence est vraie seulement lorsque P vrai, Q 
vrai. 


0 : les parenthèses ne sont pas des connecteurs mais 
elles permettent de séparer les parties de formules. 


Ce tour d'horizon met en évidence ceci : une formule 
peut se démontrer en agissant sur les valeurs 
vrai /faux de chacune des variables composantes. 


Une fautologie est une formule vraie quelles que 
soient les valeurs des variables (par exemple : /P+P 
ouP>(Q>P)) 


La clause vide, notée °, est une formule sans variable 
qui prend la valeur faux. 


Mode d'emploi 


Deux manière de s’en servir, avec ou sans contrôle 
des valeurs prises par les variables propositionnelles. 
La différence tient en deux points : 


- le programme demande explicitement les valeurs 
(avec contrôle), il ne se prononce pas (sans contrôle). 
-le programme conserve sur fichier la valeur des 
variables et se sert de la sauvegarde dans les 
démonstrations futures (avec contrôle). 





Entrée des formules 


- donner la «formule hypothèse» à laide de 
variables (2 caractères au mieux) et des connecteurs 
du paragraphe précédent. 

- Donner la conclusion dans le même style. attendre 
la laconique réponse YEs, théorème démontré ou No 
dans le cas inverse. 


Interprétation des a et 8 


Le programme commence par transformer les 
formules brutes (avec des > et =) en formules 
entièrement faites de +,.,() et /. L’algorithme étant 
récursif, « indique un appel, 8 un retour. 


En cas d’erreur signalée, modifier l’expression en 
conséquence. 


Interprétation des T et & 


Par laffichage des appels (T) et des retours (6), 
l'utilisateur suit le processus de démonstration. 


Contrôle des valeurs 


Lever au clavier le drapeau 4 avant de lancer 
DEMOS. Procéder à l'entrée normale de l'hypothèse 
et conclusion. Selon nécessité, le programme va 
demander une fois pour toute la valeur vrai (T 
comme True) ou faux (F en Anglais !). 


L'affichage de : "P, T or F ?", signifie “variable P 
est-elle vrai ou faux?". 


En fin de démonstration, il est possible de garder le 
fichier VALUE renfermant la «vérité». Les 
utilisations postérieures se serviront du contenu pour 
mener à bien les cogitations, sauf si le drapeau 4 est 
baissé. 


Conclusions et remarques 


Sans le contrôle des valeurs, le programme prend les 
risques minima. Îl échoue donc parfois, ne sachant 
pas traiter l’expression à un niveau plus élevé. La 
faute est celle de  Palgorithme de Wang 
insuffisamment puissant. 


Un jeu d'essais ? 
(H) p=q 


(C)p>qa 
c’est vrai, l'inverse est faux. 


(H) ((q>p)(p>r)) 
(C) (qa>r) 
c’est vrai mais avec contrôle des variables ! 


(H) p 
(C) (p>p) 
vrai, on s’en doutait. 


(H) (s>/r)}:r 
(C) /s 


c’est encore un théorème. 


(H) /a+/b 
(C) /(a.b) 


théorème classique. 


Xavier Bille (203) 
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Programme “GRAPH22! pour HP-75 (tracé de courbes sur HP82905B, nécessite GRAPHLEX) 


GRAPH22 graphiques HP82905B (GRAPHLEX) 

(c) J.Y. HERVE et JPC 22/11/1987 V1.0 

0003 DEF FNF(X) = X*P1/180-2*SIN(X) 

0004 DEF FNH$ = 'X*P1/180-2*SIN(X)! 

0010 PRINTER IS ":P1" @ PWIDTH INF à DELAY O0 

0020 DIM G$[321] ,H$[321] ,A$ [18] 

0030 EDIT "GRAPH22 à DEF KEY CHR$(O),''R. 100" 

0040 ON ERROR CONT 

0050 PURGE ‘FN! 

0060 ASSIGN # 9 TO "FN'!,TEXT 

0070 INPUT "Fonction Y=",FNH$;H$ Q PRINT # 9,3 ; MDEF FNF(X)="&H$ 
0080 PRINT # 9,4; DEF FNH$='"&H$&"11 à ON ERROR GOTO 40 

0090 TRANSFORM "FN! INTO BASIC à OFF ERROR à PUT CHR$(0) à MERGE "FN" 
0100 PURGE ‘'FN' à PURGE KEYS 

0110 OPTION ANGLE DEGREES 

0120 INPUT "Ymin,Ymax,Tic ?2",11-4,7,1":Y0,Y1,Y3 à Y2=(Y1-Y0)/320 
0130 INPUT "'Xmin,Xmax,Pas,Tic ?",1-180, 450,1,45";:X0,X1,X2,X3 
0140 PRINT TAB(20);"Fonction F(X)=":FNH$ à PRINT 

0150 FOR J=YO TO Y1 STEP Y3 

0160 H$=STR$S(J) à K=((J-YO)/Y2+4.5)\6-LENCHS)\2+20 

0170 PRINT TAB(K);:H$;CHR$(13); à NEXT J 

0180 PRINT à PRINT CHR$(27)8&"&l[9D" 

0190 Y3=Y3/Y2 à X=X0 à K=IP(CFNF(X)-YO)/Y2+1.5) à K=MAX(MINCK,321),1) 
0200 G$=RFILL$("",0,320)&CHR$(255) 

0210 FOR J=1 TO 321 STEP Y3 à G$[J,JJ]=CHR$S(255) à NEXT J 

0220 DISP ‘Tracé de X=";:X à H$=G$ à A$="" à FOR 1=7 TO O STEP -1 
0230 IF X>X1 THEN H$=CBIT$(H$,1) à GOTO 280 

0240 IF MOD(X,X3)=0 THEN A$S=STRS(X)&" 1 Q H$=SBITS(HS,1) 

0250 ON ERROR Y=K 

0260 Y=IPCCFNF(X)-YO)/Y2+1.5) Q OFF ERROR Q Y=MAX(MIN(Y,321),1) 
0270 J=MINCK,Y) @ L=MAX(K,Y) @ H$[J,L]=SBITS(HSIJ,L],1) à K=Y 
0280 X=X+X2 à NEXT 1! 

0290 PRINT TAB(20-LEN(AS)); AS; CHR$S(27)8&"*b321G"8H$ 

0300 IF X1>X-X2 THEN 220 

0310 PRINT CHR$S(27)&'E" Q BYE 


AORAR NRA RAA RON ANA MH HA He HA He RH HD A HR HO DH DH AH HA AA HA AO ADO EEE ee 


Programme "HANOI'" (le problème classique des tours de Hanoï) 


10 INPUT ‘Nombre de disque ? !;N 
20 CALL HANOICN,1,3) 


30 SUB HANOI(N,D,A) 
40 IF N=1 THEN DISP D;A à END 
on affiche les cases de départ et d'arrivée, et on remonte d'un disque. 
50 CALL HANOIC(N-1,D,6-A-D) 
un disque de moins et on change La déstination. 
60 DISP D;A 
: Le plus grand du moment en position pour pouvoir rempiler. 
70 CALL HANOI(N-1,6-D-A,A) 
un disque de moins et on change l'origine 
80 END SUB 


JPC 52 Page 36 


He eee ee eee eee ee ee ee ee eee RH HA HD DH IDR ARE 


Programme "DEMOS" (pour démontrer vos théorèmes, nécessite module Forth / Assembler) 


- Démonstrateur de théorèmes en Logique des propositions. 
Auteur : Xavier BILLE (203) 
Nécéssite des fonctions BASIC du module forth/assembleur 


programme principal. 
10 DISP "Theorems demos." à DESTROY ALL 

- H$ hypothèse , C$ conclusion. 

h$ et c$ sont initialisées avec La clause vide ° . 
20 DIM C$[99],H$(99] à C$='°! à H$='°! 
- introduction des deux formules du théorème. 
30 CALL INP("Hyppo.'",H$) @ CALL INP(#Conclu.",c$) 
- Appel au moteur de La démonstration. 
40 CALL MOSCH$,C$,F) à DISP 
- f=drapeau marquant La réussite de La démonstration(1) ou l'échec(0) 
50 1F F THEN DISP "Yes." ELSE DISP "No." 
- drapeau 4 indique Le contrôle des valeurs de variables propositionnellLes. 
60 IF NOT FLAG(4) THEN 100 
- Les valeurs sont gardées dans Le fichier text VALUE. 
70 DISP "Keep file value Y/N 
80 K$S=UPRCS(KEYS) à IF NOT POS(!YN!,K$) THEN 80 
90 IF K$='N' THEN PURGE VALUE 
100 END 

- ici débute La cascade de routines 

routine d'entrée des données et de Leur transformations 


110 SUB INP(M$,S$) à DIM 1$199] 
m$ message de l'input, s$ chaîne à affecter. 
i$ intermédiaire de calcul 
120 DISP M$; à INPUT ": ,S$;:1$ à S$=1$ @ CALL SYNC1$) 
J La routine syn() Le nombre de parenthèses et lève Le drapeau 0 en conséquence 
130 IF FLAG(O,0) THEN 120 ELSE S$=1$ @ CALL TRANS(1$,1$) 
è trans() découpe l'expression afin de modifier Les = et Les > 
140 IF FLAG(1,0) THEN 120 ELSE S$=1$ 
150 DISP " ok.!! 4 END SUB 
- cette routine vérifie La quantité de parenthèses. 
elle lève Le drapeau 0 si Le compte n'y est pas 


160 SUB SYN(S$) à DIM R$[99] 
170 FOR 1=1 TO LEN(S$) @ V=NUM(S$[1]) 
: (=chr$(40) et )=chr$(41). Accéssoirement on supprime Les espaces(32). 
180 IF V=40 THEN P=P+1 
190 IF V=41 THEN P=P-1 
200 IF V#32 THEN R$=RS&CHRS(V) 
210 NEXT I @ IF P THEN DISP "Missing parenthesis" à SFLAG 0 
220 S$=R$ à END SUB 
- routine qui extrait l'argument dissimulé dérrière une paire de parenthèses. 
si s$='asdf)+(xcv)' alors a$='asdf'. Explore dans Le sens droite-gauche. 


JPC 52 Page 37 


SUB EXTR(S$,A$) 
FOR I=LEN(S$) TO 1 STEP -1 à V=NUM(S$[I]) 
IF V=40 THEN P=P+1 
IF V=41 THEN P=P-1 
IF P>0 THEN A$S=S$[I+1,LEN(S$)] à GOTO 290 
NEXT I à A$=S$ 
END SUB 
routine qui reconnait Les opérandes et l'opérateur dans une sentence, s$ 
a$ 1er opérande reconnu, o code ascii de l'opérateur. Explore Le sens droite-gauche. 
s$ La chaîne restante une fois oté a$. Commence par Le 2ème opérande. 


SUB FIARG(S$,A$,0) 
FOR I=LEN(S$) TO 1 STEP -1 
V=NUM(S$ [1] ) 
IF V=41 THEN DIM E$(99] à E$=S$[1,1-1] à CALL EXTR(ES,E$) à I=I-LEN(E$)-2 à GOTO 320 
D=V=43 OR V=46 OR V=61 OR V=62 
IF D THEN O=V à AS=S$[I+1,LEN(S$)] à S$=S$[1,1-1] à GOTO 370 
Lorsqu'il n'y a pas d'opérateur (0=0),la chaîne est renvoyée en sa totalité (a$) et s$=1! 
NEXT I Q A$=S$ à S$='! à 0=0 
END SUB 
routine qui modifie Les connecteurs = et >. 
Le résultat se récupère dans a$ sauf érreur (drapeau 1 levé) 


SUB TRANS(S$,A$) à IF FLAG(1) THEN 550 
r$=intermédiaire 
DIM R$[99] à DISP CHR$(4); 
on recherche les connecteurs 
CALL FIARG(S$,R$,0) 
IF O THEN 'LBL1' 
il n'y a pas de connecteurs à ce niveau. 
y-a-t-il des parenthèses autour de l'expression ? 
IF R$[ILEN(R$)]=')! THEN 'LBLO' 
non, il s'agit d'une simple variable 
il faut tester sa qualité syntaxique 
IF NOT LENCR$) OR LEN(R$)>2+(R$[1,11=!/1) THEN SFLAG 1 ELSE A$=R$ à GOTO 540 
IF FLAG(1) THEN DISP ! Var. err: !'8&R$ à GOTO 550 
420 suite, on extrait l'argument pour Le traiter. 


'LBLO': DIM T$[99],U$[99] à U$S=R$[1,LEN(RS)-1] 

CALL EXTR(US,T$) à U$=T$ à CALL TRANS(US,U$) 

une fois traité, on remet Les parenthèses originelles 
AS=RS$[1,LEN(RS)-LENCT$)-1]8U$&')! à GOTO 540 

410 suite, on lance Le traitement des opérandes avant de reformer L'expression. 


'LBL1': DIM P$[991,Q$199] à CALL TRANS(R$,Q$) à CALL TRANS(S$,P$) 
l'opérateur n'est pas un = où un > 

IF O<60 THEN A$=PS&CHRS(O)8Q$ à GOTO 540 

l'opérateur ne peut être qu'un =(61) ou un >(62) à ce niveau. 

on rajoute des parenthèses si l'expression est composée: P$,0$ 

IF LEN(P$S)>2+(P$(1,1]=1/1) AND PS[LEN(P$)]#')! THEN P$='('&P$&!)! 
IF LEN(Q$)>2+(Q$(11,1]1=!/) AND Q$[ILEN(Q$S)]#')' THEN Q$='('8&Q$&!)" 
on forme La transformation de P$>Q$==/P$+0$ 

AS='/'&P$S&'+'8&Q$ à AS=AS[3*(AS[1,2]="//")] 

si c'est un = on forme /Q$+P$, puis A$.(/0$+P$) 
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530 
540 
550 


560 


570 


580 


590 


600 


610 


620 


630 


640 


650 
660 
670 


680 
690 
700 


710 
720 
730 


IF 0=61 THEN DIM B$[99] à B$='/'8&Q$&'+!8&PS @ A$='('RAS&").("&BS(3*(B$[1,2]="//")]18!)! 
DISP CHR$(5); 


END SUB 

le moteur de La démonstration. Application de l'Algorithme dit de WANG 
h$ L'hypothèse, c$ La conclusion, 

f=1 La conclusion se déduit de l'hypothèse, 0 sinon 


SUB MOS(H$,C$,F) @ DISP CHR$(5); 


s$,r$ sont des variables qui contiennent des morceaux de h$,c$ 

DIM S$[99] ,R$ [99] 

on découpe l'hypothèse 

CALL FIARG(H$,S$,0) 

IF O THEN 'LBL4! 

on ne peut plus découper, il faut chercher à extraire Le contenu d' 

IL faut chercher à extraire Le contenu d'éventuelles parenthèses. 

IF S$[LEN(CS$)1#')' THEN 'LBL2! 

on cherche à enlever Les parenthèses afin de traiter l'intérieur. 

IF S$[1,1]1#!/! THEN S$=S$[1,LEN(S$)-1] @ CALL EXTR(S$,H$) @ CALL MOS(H$,C$,F) @ GOTO 730 
si L'hyp. commence par une négation, il faut faire passer l'expression 
correspondante dans La conclusion. 

S$=S$(2] 9 H$='°1 Q CALL CON(C$,S$,43,C$) à CALL MOSCH$,C$,F) à GOTO 730 
600 suite. L'hyp. n'est plus séquable. 

On découpe alors La conclusion. 


ILBL2': CALL FIARG(CS,RS,P) 

Les mêmes principes (Lignes 590-620) sont appliqués à La conclusion, 

IF P THEN 'LBL3! 

si conc. et hyp. sont réduites à de simples variables, 

on essaye d'attribuer (val) une valeur au th. s$ -> r$ . 

IF R$S[ILENCR$S)]1#')' THEN CALL VAL(S$,R$,F) à GOTO 730 

IF R$[1,11#!/' THEN R$=R$SÇI1,LENCR$S)-1] à CALL EXTR(R$,C$) @ CALL MOS(S$,C$,F) à GOTO 730 
R$=R$(I2] @ C$='°! Q CALL CON(S$,R$,46,H$) à CALL MOS(H$,C$,F) @ GOTO 730 

640 suite. On essaye de travailler séparémemt Les 2 sous-expressions 

de La conclusion. 


ILBL3': H$=S$ Q CALL MOS(S$,R$,G) 

IF P=43 AND G=0 OR P=46 AND G=1 THEN CALL MOS(H$,C$,F) ELSE F=G 
GOTO 730 

590 suite. On tente de traiter séparément Les 2 sous-expressions 
L'hypothèse. 


ILBL4': R$=C$ à CALL MOS(S$,C$,H) 
IF 0=46 AND H=0 OR O=43 AND H=1 THEN CALL MOS(H$,R$,F) ELSE F=H 
DISP CHR$(18); à END SUB 


- routine qui concatène r$ et s$, via l'opérateur o, dans t$ 


740 SUB CON(S$,R$,0,7$) 


750 


IF S$='°1 THEN T$=R$ ELSE T$=S$&CHR$S(O)8RS 


760 END SUB 
- routine qui décide au niveau de l'atome 


Ici se décide Le théorème élémentaire. 
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770 SUB VALCH$,CS,F) 


780 
790 
800 


810 
820 
830 


840 
850 


860 


870 
880 
890 


900 
910 
920 
930 


940 


950 


960 
970 


980 
990 
1000 


1010 


1020 
1030 


flag(2) et flag(3) indique des négations devant Les variables. 

IF H$(1,11=!/! THEN SFLAG 2 

IF C$(1,1]1='/! THEN SFLAG 3 

F=H$=C$ Q IF F THEN 970 

Le contrôle des valeurs se fait avec Le drapeau 4 

IF FLAG(4) THEN 'LBL5! 

formule qui décide en l'abscence de connaissance certaine sur Les variables. 
F=FLAG(2) AND C$='°! OR H$='°! AND FLAG(3) 

GOTO 970 

Option drapeau 4, on ouvre value pour extraire La connaissance. 


ILBLS': X=FILESZR('VALUE") @ IF X<O THEN CREATE TEXT VALUE à X=0 
ASSIGN #1 TO VALUE 

Pas de recherche pour La clause vide de valeur de vérité FAUX. 
IF H$=1°1 THEN 'LBLé! 

codage : [variable]&chr$(31)&lvaleur, T ou F] 

H=SEARCHCHS [1+FLAG(2)]1&CHR$(31),1,0,X,1) 

IF NOT H THEN CALL INSCHS[1+FLAG(2)],#1,1,X) @ GOTO 'LBLé! 

READ #1,H:S$ à P=POS(S$,CHR$(31)) à I=VAL(SS[P+1]) 

Même travail sur La conclusion, on récupère sa valeur. 


ILBLé!': IF C$='°! THEN 'LBL7! 
C=SEARCH(C$[1+FLAG(3)1&CHR$(31),1,0,X,1) 

IF NOT C THEN CALL INS(CS[1+FLAG(3)],#1,J,X) @ GOTO 'LBL7! 
READ #1,C;S$ à P=POS(S$,CHR$(31)) à J=VAL(S$[P+1]) 

Prise en compte des négations. 


ILBL7': IF FLAG(3) THEN J=NOT J 

IF FLAG(2) THEN I=NOT I 

F prend une valeur selon celle des variables. 
F=NOT (1 EXOR J) à ASSIGN #1 TO * 

CFLAG 2,3 à END SUB 


routine qui inscrit au fichier une variable nouvelle. 
T pour True, F pour False 


SUB INS(S$,#1,F,X) 


DISP S$; à INPUT ! ,T or F :!;:F$ @ F$=UPRC$S(F$[1,1]) 

IF NOT POS('"TF',F$) THEN 990 ELSE F=F$=!T! 

codage : [variable]&chr$(31)&'00'&lvaleur de La variable] 
S$=S$ECHRS(31)8& 00! ESTRI(F) 

x est Le nombre d'élément du fichier Value. 

IF X THEN INSERT #1,0;S$ ELSE PRINT #1;:S$ 

X=X+1 Q END SUB 
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LE COIN DES LHEX 


Comme de coutume, cette rubrique contient la liste des codes hexadécimaux des fichiers Lex 
parus ce mois-ci. 


Rappelons ce qu’est un fichier Lex : c’est un programme pour le HP-71, en assembleur, qui 
apporte de nouvelles fonctions. Celles-ci sont utilisables directement, ou dans des programmes 
Basic. 


Pour bénéficier de ces nouvelles fonctions, vous n’avez pas besoin de programmer vous-même en 
assembleur, ni de posséder un module Forth/Assembleur. 


Il suffit de recopier le petit programme basic "MAKELEX" ci-dessous, de le lancer et de recopier 
les codes du fichier Lex désiré. Quand vous avez fini, les nouvelles fonctions sont accessibles, 
après avoir éteint et rallumé votre HP-71. 


Si l'erreur "Erreur de somme" apparaît, vérifiez la ligne que vous avez introduite. 
Vous trouverz donc le Lex CHARLEX nécessaire à la rédaction de votre article (voir "Ah ! Vous 


écrivez !"), ainsi que le Lex de programmation structurée de ce mois-ci. Notez que nous 
franchissons la barre des 100 tokens avec ELSE.. 


CHARLEX 

STRUC2 END XWORD 225066 WHILE XWORD 225067 
REPEAT XWORD 255068 UNTIL XWORD 225069 
LEAVE XWORD 255070 LOOP XWORD 225096 
SELECT XWORD 255097 CASE XWORD 225098 
IF XWORD 255099 ELSE XWORD 225100 


10 CALL MLEX à SUB MLEX à SFLAG -1 @ PURGE AH à INPUT "Nb. d'octets: !:N à LC OFF 

20 CREATE DATA AH,1,N-4 @ A=HTD(ADDR$(''AH")) à B=A à GOSUB 130 

30 Q=1 à X=0 à INPUT "000: ",P$;A$ à C$=A$ à S=0 4 GOSUB 90 

40 Q=2 à X=1 à GOSUB 80 à AS$=A$S&CS à A=A+37 à N=N*2+37 9 Q=3 Q SFLAG 5 à FOR X=2 TO N DIV 16-1 
50 GOSUB 80 à C$=C$[I5*FLAG(5)+1] à POKE DTH$(A),C$ Q A=A+16-5S*FLAG(5,0) à NEXT X à Q=4 
60 DISP DTH$(X)[3]1; à INPUT ": ",P$[1,MOD(N,16)1;C$ à GOSUB 90 

70 POKE DTH$(A),C$ à POKE DTH$(B),A$ à CFLAG -1 à END 

80 DISP DTH$(X) [3]; à INPUT ": 1,P$;C$ 

90 DISP DTH$(X)[3]; à INPUT " sm ","---n:D$ 
100 M=S @ FOR Z=1 TO LEN(C$) à M=NUM(CS$[Z])+M+1 à NEXT Z 
110 IF D$=DTH$(MOD(M,4096))[13] THEN GOSUB 130 @ S=M à RETURN 
120 DISP "Erreur de somme! à BEEP à P$=C$ à POP à ON Q GOTO 30,40,50,60 
130 P$=u----........... " @ RETURN 
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CHARLEX ID#E1 624 octets 036: 084E794142400000 1EF O1A: 207430313F966D08 EOA 
037: 00000000002€4559 52D 01B: F8EC2070208FEA23 1B4 

0123456789ABCDEF sm 038: 3200000000000000 842 01C: 044B8D271308F9DF 558 

039: 0000000000000026 B5A 01D: 30870935CE8F9DF3 907 

000: 34841425C4548502 35E 03A: 5556587008365556 EB9 01E: 0870A230187340E6 C6E 
001: 802E009212422088 6B3 03B: 5810083645464830 204 O1F: 8161371FAA8F2153 FFA 
002: 5E4001E000000000 9F7 03C: 0832414248700024 54B 020: 494811135942008D 359 
003: FE0000000800001F D51 03D: 5655587008345655 8A8 021: 53E201554135018F 6BF 
004: F31BF961400032BF 0E4 03E: 5810083446454830 BF7 022: D96307B9F7BCE4F9 A91 
005: 38F14A11DB10AD23 47E 03F: 0C3042414C700024 F4C 023: 000068401818FB39 DF9 
006: 07D532BFB8FD7911 831 040: 5556587008355654 2A9 024: 40310F9628131049 152 
007: 11AD754D7A101743 BB4 041: 5810083546444830 5F8 025: 62F03112962606F1 4BB 
008: 11014D1CB15D0000 F1F 042: 0C3142404C700025 94E 026: 0626F1371F088F21 83A 
009: 71450375FF864834 29C 043: 5455587008355455 CAB 027: 57413594E40018D5 BAB 
00A: 5655581008355654 5F3 044: 5810083544454830 FF6 028: 30308D0745014B7B F1D 
008: 5810002455565870 940 045: 0C3140414C700875 358 029: D4474D61708F6242 2A2 
O0C: 0026555658700836 C92 046: 1414187000044972 6A9 02A: 0510220300339464 5DC 
00): 5556581008364545 FE8 047: 40000E3159454E30 A09 028: 23653037C4F4F405 959 
00E: 4A30000449724000 33B 048: OC7A0F7949400024 D81 O2C: 2765203B3554C454 CC5 
O0F: 0808094A2C180814 6A4 049: 5554587000084A71 0DD 02D: 34452B6110397584 025 
010: A464242008355455 9FE O4A: 40000C523A262D10 43E 02E: 94C45429749014B8 3A0 
011: 581000054C714000 D44 048: 0424587458400875 795 02F: D303507D80390245 709 
012: 0C3142404C700832 OA0 04C: 1415187000094A70 AE5 030: 8454E4296FDF7D54 ABC 
013: 41414A70002078A0 3F8 04D: 4000083544454830 E29 031: 5213754C43554276 EE 
014: 2F30000000000000 723 O4E: 0C3140414C300€74 191 032: 8CF153331A896631 1A1 
015: 0000000000000000 A33 O4F: 5655545000054071 4E8 033: 8F0E 160754017252 50C 
016: 0000000000000000 D43 050: 40000 5E1 034: 27240313F966C137 87B 
017: 0000000000000000 053 035: 0245F40227722017 BCE 
018: 0000000000000000 363 STRUC2  ID#E1 1541 octets 036: 114B7F108FCE2503 F64 
019: 0000000000000000 673 037: 1C221770017166AF 2D7 
O1A: 0000000000000000 983 0123456789ABCDEF sm 038: 8D324508D229506F 65B 
018: 0000000000000000 c93 039: EFF83EFF18770351 A18 
01C: 0000000000000000 FA3 000: 3545255534230202 342 O3A: 678F871F030998A1 DAB 
010: 0000000000000000 2B3 001: 802E000312422088 68F 038: 331E0962828F83DB 13E 
01E: 0000000900000000 5c3 002: FOC001E246448B00 AOC 03C: 07C151B178F2137C 4C7 
01F: 0000000000000000 8D3 003: FB30087000000000 D56 030: 2144164140AC25C0 830 
020: 0000000000000000 BE3 004: 072600D230F6600D OC4 03E: 7DF4AC2B461B098F BF1 
021: 000000000000080€ FOE 005: 61019600D520A960 426 03F: 2154477C47015267 F52 
022: 1A28080008080A2C 278 006: 0D90069500D554E4 7A2 040: D1578C4165312414 2BD 
023: 180008040E340800 5C1 007: 44249C4541465546 B08 041: A962F016114A7D43 645 
024: 08001E3018000000 8FB 008: 4B25540554144544 E62 042: 5606D9031A8966A3 9C9 
025: 0000000000000000 COB 009: 955E44594C454975 1E9 043: 1F088F2161156415 D36 
026: 0000000000000000 F18 00A: 8494C454341FF303 56C 044: 541607AA41361B08 OA8 
027: 0000000000000000 228 00B: 0014040202020202 88F 045: 8F2156413480DF77 430 
028: 0201000000010200 541 O0C: CC230BF354727573 C1D 046: 605444B5778414A3 7A1 
029: 0000000201020000 856 O0D: 64757275602D4963 F8A 047: 13F962E0227B4058 B1F 
02A: 0001000100000002 B6A 00E: 7D6164713686CFF0 324 048: 24F3267F30551161 E89 
028: 0102010000000000 E7E O0F: 38DE6A208DA2C207 6CC 049: 7F54237F205C0432 204 
02C: 0000000000000000 18E 010: SFFFE1E34420FE1E A9C O4A: 1617C4414A311F96 57E 
02D: 045E755142400101 4DA 011: 06820FE1E16710FE E37 04B: 6C016114A6D6F673 90B 
02E: 0101010000000000 7ED 012: 1E36410006351185 188 04C: F7BF365B280CF201 CB6 
02F: 0000000000000000 AFD 013: 012165002218580C 4D4 04D: 361B698F21441B09 036 
030: 0000070507000000 E20 014: 0208D82D20185011 832 O4E: 8F21524A4C413109 3AC 
031: 00000000083444C4 15E 015: 371FAABF2AC21554 BDA O4F: 8F45DB0044B11298 738 
032: 44&400D7901112D70 4BE 016: 135719FFE1E46DDF FA3 050: ODF1298F534D0042 AC2 
033: 050D750509700000 808 017: 007E408FB394031A 328 051: 065B08D51DB0AC78 E6A 
034: 0D70000000384540 B4B 018: 8966A18F8EC20AA6 6DF 052: F83DB0137C21351B 1FD 
035: 4020014E322E3140 E9F 019: BB6BB679AF6B1072 A9C 053: 678F2146841840AC 582 
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054: 
055: 
056: 
057: 
058: 
059: 
05A: 
05B: 
05C: 
050: 
O5E: 
O5F: 
060: 
061: 
062: 
063: 
064: 
065: 
066: 
067: 
068: 
069: 
06A: 
06B: 
06C: 
06D: 
06E: 
06F: 
070: 
071: 
072: 
073: 
074: 
075: 
076: 
077: 
078: 
079: 
O7A: 


O8AA218A8868A601 
8505418A8C25C38B 
670851D618414213 
08F7C1B120AC0482 
860013028160E4E6 
B20871B13018160E 
4E681014A14F9E29 
E3048160E4EACB0E 
4694C201B698F214 
61340163DFF47BFF 
18776232873336D8 
1EFCFF9FAFF70D28 
FE3F804033098169 
4752DB13416314A8 
F3E3203471006010 
449000066210C0C8 
0C020A87309A0B80 
D07A6276C26021D2 
CFFCOAFF14A7EFO4 
D0300902725D1313 
479E17F915E07032 
7CB16FD08D84A803 
10677c175A168C05 
DBFFD3AFF7212776 
15E078F174816BCF 
207A4264A051CFF0 
1AFF78616FAF89BF 
FOOAFF1361B698F2 
144314473611B698 
F21461347C014E07 
D9179216C406C6F7 
CBFFAEAFF/BEO4DE 
257AD164305ABFF6 
18FF2376C1602020 
33301E8DA93908D5 
045078411877E811 
36134D787DD13210 
88F1c8111378B70C 
C28B39B86F7786D2 


90E 
CAO 
FFD 
38D 
6F4 
A63 
DFS5 
1A9 
52C 
8DD 
C4B 
047 
3CE 
746 
A9F 
DFD 
179 
&FE 
8F2 
C4E 
FD5 
386 
703 
AD9 
E7F 
20F 
SEF 
99E 
CFE 
074 
40E 
82D 
BD8 
F57 
2E9 
64c 
9cé 
D59 
10C 


07B: 
07C: 
070: 
07E: 
07F: 
080: 
081: 
082: 
083: 
084: 
085: 
086: 
087: 
088: 
089: 
08A: 
08B: 
08C: 
08D: 
O8E: 
08F: 
090: 
091: 
092: 
093: 
094: 
095: 
096: 
097: 
098: 
099: 
O9A: 
098: 
09C: 
090: 
09E: 
09F: 
0A0: 
OA: 


71F0B87F22030214B 
0E06A0C4951FD55F 
214713517E143F43 
4412E08A68313610 
A1341FC65F2143E6 
E6BBAC18F95EF011 
A1348FB7EF011213 
0807E4708F871F08 
FD8DB004&ACO5D097 
c00110AC097C0001 
3098161851328F31 
F808161341650110 
88FE3F8043430981 
694783DB134AF015 
A51657630118AE5A 
F2AE9BF2BF2BF2BF 
233FE1E9720061AE 
18198F2146134011 
361B198F21441340 
11371F1C6F214513 
5011F1C6F21471E9 
95F1458D681F0D01 
4A136C213401614E 
80cF208F5341080D 
F80C0201F088F215 
501F765F214787D3 
1321088F1C811137 
C2D731FE8F99A805 
CA795F16114A311E 
962606DA016114A3 
124962023F340644 
16365426462F8F89 
0814F78F3E32034F 
5006850441503664 
016B30001F088F21 
5708F62420850811 
760E01D01D60F707 
FO5DOA8058008028 
6D002767000C0C80 


489 
835 
B9E 
F03 
29C 
65F 
9F2 
D91 
14A 
487 
818 
B6B 
EF7 
287 
60F 
AOC 
DA4 
106 
46D 
7E0 
B6A 
EFE 
26B 
5F5 
970 
DO5 
068 
428 
7BF 
B32 
E8A 
20C 
5A8 
8F1 
C5D 
FBC 
342 
689 
A27 


OA2: 


OA3: 
OA&: 
0A5: 
OA6: 
OA7: 
0A8: 
0A9: 
OAA: 
0AB: 
OAC: 
0AD: 
OAE: 
OAF: 
0B0: 
0B1: 
082: 
0B3: 
084: 
085: 
086: 
087: 
0B8: 
089: 
OBA: 


0BB: 


0BC: 


08D: 
OBE: 
OBF: 
OCO0: 
0c1: 
OC2: 


CF2070211F088F21 
554798E1817FCE63 
OF7A7E16514A7D1D 
51160D031547FD04 
716BFC314670D048 
02261906CA031267 
BB043F215C70C0C8 
OCF20AC714A33462 
6238F890B15C3312 
4966911611520301 

90242302902C1ACB 
8126F0F31267F504 
702150275DD18178 
1E6F4E3146704048 
EOCOC80CF2071BD1 

6514A745C4028129 
0681789D18172504 
0077DD6B0E632C14 
A96200011F495F21 

43E41418F156818B 
E911F088F2157013 
11c01550018DD449 
O1FF85F214717414 
38A200cc14113115 
701F088F21550011 
E064600000FB3000 
00000000D1091BFF 
D8204C7FFD00030A 
FFD61035BFF9B005 
6BFFD73414355426 
754C435544639464 
367C4F4F40506B35 
54C4543445161FF 


DAC 
14F 
&FB 
86E 
BFC 
F5D 
2FE 
68c 
AOA 
D51 

OCC 
44B 
7C3 
B43 
EFO 
25E 
5C5 
95B 
CDO 
053 
3D2 
744 
AC3 
E28 
188 
4EB 
858 
BF8 
FB5 
349 
685 
A45 
D91 
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ENGLISH SUMMARY 
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We are happy to announce you a good news not to be found in JPC : Paul Courbis, Sebastien Lalande and 
Guillaume Le Stum have been able to download the contents of the HP-28C operating system Rom to an 
HP-71. We are working on a disassembling of the Rom, using JPC Rom functions, of course ! 


Since last month, we have received additional informations from Bill Wickes about the HP-28S : the 
hardware is a new one, and the machine seems to be faster (some algorithms have been completely 
modified, and the clock speed has been increased). 


In the HP-28C columns, Paul Courbis indicates that the program +LEx described in JPC 51 can be changed 
to a simple #3EEAO SYSEVAL ! 


Next, Guillaume Le Stum provides some handy routines, mainly on integer programming. 


We are still very involved in HP-75 assembly language programming as can be seen with a nice Lex 
providing graphic functions on a HP82905B by Jean-Yves Hervé. 


The greatest part of the Journal is dedicated to a major achievement by Pierre David and Janick Taillandier. 
It extends the functionalities of a Lex published a few years ago, and now provides a complete set of 
structured programming statements, including an incredibly powerful SELECT … CASE. These 
statements are fully compatible with HP9000 series Basic. In a future JPC, these guys will present two 
statements allowing structured listing of Basic programs using the new keywords. 


Laurent Istria explains recursive programming with the Hanoï towers problem on page 33. Finally, Xavier 
Bille has realized a program to demonstrate formal logical propositions. 


Until next month, 


Happy Programming and JPC reading ! 


